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APPROVED BY REVISIONS 
LTR JISSUE DATE 


Changes for the Mark VIII.O Release (cont) 


10-28 Updated £SEARCH STATEMENT? : 
Added ON. FILE PART 
Deleted all other perevences to SEARCH PART 
Deleted S4FILE MISSING PART> 
Deleted € FILE LOCKED PART> 
Added ZON FILE PART? 
10-31 Updated. table: 
Added PROTECTION 
Added PROTECTION_IO 
10-39 Updated COMPILE _CARD INFO table 
Added USERCODE | 
Added FILLER 
Added SESSION 
Changed CHARGE NUMBER CHARACTER from 6 to 7 


10-45 Updated MESSAGE COUNT 
Deleted @ FILE IDENTIFIER) L€EXPRESSIONZJ 
Added ZSWITCH FILE IDENTIFIER > 

Changes for the Mark 10.0 Release 


5-6 Added "<LEVEL NUMBER> <STRUCTURE ELEMENT>" to 
<STRUCTURE ELEMENTS>. 


5-20 Added "<HOST_NAME PART>"' to <FILE ATTRIBUTE> List. 
5=33 Added "<HOST_NAME PART>"' ATTRIBUTE. 


8-16 Added. '<BINARY, “SEARCH DESIGNATOR>", eek 
oS DATS LENGTH DESIGNATOR>"", NeDATA |! TYPE: DESIGNATOR>" 
-“<ELAST LIO STATUS: DESIGNATOR>", & "<TIMER DESIGNATOR>" 
to "VALUE, GENERATING FUNCTIONS" list.” 


8-18 Added "BINARY SEARCH" description. a 
8-22 Added "DATA LENGTH" & "DATA TYPE" descriptions. 
8-28 Added "LAST LIO STATUS" description. . 

8-39 © Added "TIMER" description. 


9-2 Added " <ON BEHALF OF MODE>" to "<OPEN ATTRIBUTE>. mi: 
Added "<ON BEHALF: OF MODE>" to OPEN STATEMENT. I 


9-6 Added "<READ PART> <RESULT MASK>; <ON SEQUENCE>" 
to "<READ STATEMENT>."" ~ 
Added '"<RESULT MASK> 3:= WITH RESULT MASK ‘<ADDRESS 
GENERATOR?" to the READ. STATEMENT. — 


Added fa Se the <RESULT MASK. 
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PRODUCT SPECIFICATION 


REVISIONS. 


Added ''<WRITE PART> <RESULT MASK>; <ON ‘SEQUENCE>" 
to . the WRITE STATEMENT. 


Added '" <RESULT MASK> ::= WITH RESULT MASK 
<ADDRESS. GENERATOR>"' to the WRITE STATEMENT. 


Added "If the <RESULT MASK>..." paragraph, 


Added "<DYNAMIC HOST _NAME PART>"' and 
"<DYNAMIC OPEN _ON _ BEHALF _OF PART>" to 
<DYNAMIC FILE ATTRIBUTE> list. 


Added "<DYNAMIC HOST _NAME PART>"' and 
"<DYNAMIC OPEN_ON BEHALF _OF>" descriptions. 


Added "<REFER_ADDRESS DESIGNATOR>", 
"<REFER _ LENGTH DESIGNATOR>"! and 
"<REFER | TYPE DESIGNATOR>" as FUNCTION DESIGNATORS. 


Added "REFER ADDRESS" description, 
Added "REFER LENGTH" and "REFER TYPE" descriptions. 
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PRODUCT SPECIFICATION 


REV } REVISION 
PPROVED BY REVISIONS 


E | 11/17/78\\ We Changes to the Mark VIII.0O Release 


Changed title to B1800/B1700 SDL «BNF Version) 


1-2 Changed BNF statement IDENTIFIER) ::= QIDENTIFIER) to 
IDENTIFLERD ::= QLETTER> 
-5 Replaced "/" with "4g" 
1 Updated STRUCTURE OF AN SDL PROGRAM Section: 
Added §@ZRECORD STATEMENT? to ZDECLARATION STATEMENT) 
3-5 Replaced 3 NVS BIT(1) with 3 NSR BIT(1) in PL/I-STYLE 
STRUCTURE 
5-8 Updated NON-STRUCTURE DECLARATIONS BNF3 
Replaced ZDECLARED PART> with ...& QZDECLARED PART, b... 
in DECLARED ELEMENT> declaration. 
5-18 Updated REFERENCE DECLARATION: 
Replaced ZDECLARED REF) REFERENCE with ...4 ZDECLARED 
REF) REFERENCE J... 
Updated REFERENCE RECORD DECLARATION: 
Replaced ZDECLARED RECORD REF? REFERENCE with 
-+-§ ZDECLARED RECORD REFY REFERENCE }... 
in €DECLARE ELEMENTP DECLARATION. 
5-19 Updated FILE DECLARATIONS: 
, Added | @PROTECTION PART) and 4 ZLPROTECTION_I0}PART to 
FILE ATTRIBUTED 
5-21 Updated Syntax 
Deleted JREADER_PUNCH ZDEVICE OPTIONPfrom ZDEVICE 
SPECIFIER> 
Added DATA_RECORDER_80 to ZDEVICE SPECIFIER? 
5-22 Updated Format 
Deleted READER. PUNCH 
Added DATA_RECORDER_80 
5-25 Updated Default section of UNBLOCKED RECORD LENGTHS 
5-31 to 
5-32 Added Default status of ZPROTECTION PART? attribute and 
€PROTECTION_LO PART? 
6-2 Updated PROCEDURE HEAD: 
Added REFERENCE TO £TYPE PART? 
7-1 Updated ASSIGNMENT STATEMENTS AND EXPRESSIONS: 
Deleted EXPRESSION from ASSIGNMENT STATEMEN 
Added EXPRESSION LIST to ASSIGNMENT STATEMENT 
8-12 Description of NULL rewritten 
9-12 ACCEPT STATEMENT section updated: 
Deleted 4END-OF-TEXT SPECIFIER? 
Deleted paragraph pertaining to END-OE-TEXT 
10-28 Updated SEARCH DIRECTORY STATEMENT: 
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DECLARE STATEMENT 
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DESCRIPTORS es She ah tee Ra ae ee ake Jak Re em ee BEG 
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NULL B-12 
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A language used to tatk about a language 1s a metalangquage. The 
natural Languages are» in fact» metalanguagess for examples» the 
metalanguage English jis used to tatk about the structure of = an 
Engtish language sentence. Backus Naur Form (CBNF)>» a 
metalanguaye copularized by tts use to describe the syntax of 
Algol 63 is used to describe the syntax of SOL. To avoid the 
confusion tetween the symbols of the metalanguage and those _ of 
the language being described» BAF uses onty 4& matalinguistic 
symbols. Literal occurrences of symbols other than the the 
metasymcols» with no -racketing characters» represent themselves 
as terminal symbols of the language. 


4 grammar for SOL is written as a set of SNF statementse each of 
which has a teft parts followed by the metasymbol “"2:=" followed 
by a List of right parts. The left part is a phrase name» and 
the right parts» separated by the metasymbol “!I",» are strings 
containing terminal symools and/or phrase namese 


META SYMBUL ENGLISH EQUIVALENT USE 


1s defined as separates a phrase name fron 
its definition. 


I or separates alternate aefinition 


of a phrase. 


<IDENTIFIER> *LOENTIFIER" The bracketing characters indi- 


cate that the intervening char 


acters are to be treated as a 
units» §.e-@er» aS a Phrase name, 


Zach BNF statement is a rewriting rule» such that we may 
substitute any right part for any occurrence of its associated 
left part; and we have a chotce of right parts which we may 
substitute. The following example specifies the use of these 
rules to determine those strings which are grammatically correct 
identifiers in SOL. 


CLETTER> ss At! Bi ct)t 6 t F i Gt! HY F's ti KEL 
1nd at Pt?) ? Rt S § Tt Utv twit xy 
fatlbidcidtetftlgt ht it j tk bt 
intoiliptaqi rl stetetu tf v tweet x ti y 
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<DIGIT> ::= 


<PREAK> 3:3 


th 


CIDE NTIFIER> 


XYZ12_B4 is 


oe 
ee 


a proper 


<LETTER> 

<IDENTIF IER> 
<IDENTIF IER> 
<IDENTLIF IER> 


<LETTER> 
<DIGIT> 
<GBREAK> 


SOL “*IDENTIFIER> since 


Lied 


COMPANY CONFIDENTIAL 


BL1800/B81700 SOL C3NF Version) 


PS 


as a terminating set of syabols by using the 83NF rules. 


Proof 
that 


<IDENTIF IE R> 
<IDENTIF IER> 
<IDUONTUIF TER> 
<IDENTIF Te R> 
S<IDENTIF Te k> 
<iDENTIF TE R> 
CIDENTIF IER> 
<IDENTIF IER> 


Notice that the 


letterss 
such cases» 


ee 08 ee ae aa 


ee 68 


es es SF ee 


that XYZ12_64 


fou Ww om td how ott 


<LETTER> 
<IDENTIFIER><LETTER> 
CICENTIFIER><LETTER> 
<TDENTIFTIER><DIGIT> 
CLOENTIFIER><DIGIT> 
<IDENTIFIER><BREAK> | 


CIOENTIFIER><LETTER> 
<TQVENTIFIER><DIGIT> X 
BNF rules do not» tn any way 


digits»e 


and dots which comorise the <«i1DENTIFIER>. 


is an <IDENTIFIER> by starting with the 
an <IQENTIFIER> can be a <LETTER>. 


EXAMPLE 


¥212_84 


CF) 
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it can be generated 


fact 


» Limit the number of 


further semantic rules witl be specified; 
SOL <IDENTIFIER> 


am ee ee oe ee Se om ae <n eee eee eee oe 
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In order to understand SOL grammare the user should be familiar 


with the most basic elements of the Software Developmental 
Language below. 


<DIGIT> 33= Of.it2i!3% 415 1b '7t 8 1 

<LETTER> ss= Al Bict ole?! *F 'GihH#ttt 
ik *#@betwminviofPpdiatseRrRktst 
!urtviwt xX tytZtatbt! cif 
fel figi ht ait j tk §' t tm t 
fotptiqatlri ste tutlt~v twill 
fy i 2 

<SPI CIAL CHARACTER> 32 RB be 1 <test>» Fs § set 
i$! st > | ro=t = tt tw | 
tcl) to" 4 ¢= € €C UJ 7 <BLANK> 

<AREAK> 23= = 

CBLANK> 235 

NOTES <dLANK> is the occurrence of one non=visitle 
character “™ ™, 
TLENTIFELERS 
<IDINTIFIER> sss <LETTER> 1! <IDENTIFIER> <LETTER> 


1 <IDENTIFIER> <DIGIT> 
{ <IQENTIFIER> <3REAK> 


RESTRICTIONS? 


1. An identifier may not contain blanks. 

Pe An tdentifier may contain a maximum of 63 characters. 
3 Reserved words may not te used as identifiers. 

be "Spectal™ words may be used for segment and OO"grouop 


identifiers without losing their special significance 
in SOL. 


oO 


x3 08 -& 


ore 
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5. In alt other cases» “special” words may be used as 


identifiers» however» they lose their special 
significance throughout the entire program when 
declared at Lexic Level @. When declared at any 
greater tlexic level» they oniy tose their special 
meaning within the procedure in which they are 
declared. 


(Also see "Structure of an SOL Program" and “Appendix 
i”) 


6 All ceserved and special words must be tn alt upper 
Case@e 
Te Identifiers must contain exactly the same letters» 
where upper and lower case are concerneds to be 
identical. If an uppercase identifiers» for example» 
is entered in lower cases it 1s a new identifier. 
CQMMENTS 
<COMMENT STRING> 3 /* <COMMENT TEXT> «#/ 


RESTRICTIONS: 


1. The pair /* preceding the <CUMMENT TEXT> must appear 
as adjacent symbols. Similarily>» the pair */ 
Following the <COMMENT TEXT> must also appear as 
adjacent symbols. 
<COMMENT TEXT> ::= <EMPTY> 


SEMPTY> ss 


Note: 


<COMMENT TE 
CHARACTER> 


XT 


1 <COMMENT TEXT CHARACTER> 
[| <COMMENT TEXT CHARACTER> 
<CDMMENT TEXT> 


<EMPTY> is the null set or the occurrence of nothing. 


= <DIGIT> 
1 <LETTER> 
1 <SPECLAL CHARACTER> 
i= | ad # tt & 


<CARD TERMINATOR> is a 


2-3 
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it is contained within a <CHARACTER STKING> or in 
<COMMENT TEXT>. Howevers in allt other cases» a % 
will cause the scanning of the current source 
image to terminate and to continue in the next 
source imagee 


> ae oa we 


<NUMBER> s3= <DIGIT> § <NUMBER> <DIGIT> 


NOTc: a&ange of signed numbers “(C2 exp 23) to €2 exp 23)71. 
Range of unsigned numbers 0G to (2 exp 24)-i. 


CEINARY DIGIT> e:s= 9 | 1 § <COMMENT STRING> 
CBiNARY DIGITS> ss <SINARY DIGIT> 

{ <SINARY DIGITS> <BINARY DIGIT> 
CQUARTAL DIGIT> 325 <BINARY DIGIT> | 2 1 3 
<QUARTAL OIGITS> 22 <QUARTAL DIGIT> 

1 <QUARTAL DIGITS> <QUARTAL DIGIT> 
<OCTAL DIGIT> s:= <H¥UARTAL DIGIT> § 415 161 7 
<OCTAL DIGITS> 33: <OCTAL DIGIT> 


1 <UCTAL OIGITS> <93CTAL DIGIT> 


HEX DIGIT> 23: <OCTAL OLfuIT> 
ie@!:igofaAt3g tc ’oree Ut F 


<HEX DIGITS> s:= <HEX DIGIT> 
! <HEX DIGITS> <HEX DIGIT> 


<OITT GROUP>::= (4) <HEX DIGITS> 
1 ¢€3) <OCTAL DIGITS> 
f €2) <QUARTAL DIGITS> 
1 CL) <BINARY DIGITS> 


<8ITS>22= <8IT GROUP> 1 <HEX DIGITS> 
1 <BITS> <dIT GROUP> 
{ <EMPTY> 


<oIT STRING> i: a<3TTS>a 


274 
EURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B6LEQC/BL70G SOL CBNF Verston) (CF) 
SANTA BARBARA PLANT PeSe 2212 5405 
RESTRICTIONS: 

Ly If no bit mode is specified Ci+ree@ee The tndicator 


digit in parentheses is omitted)» "Hex" is assumed. 
This can onty be assumed if the bit string does not 
start with a mode indicators when the mode is 
switched to “Hex"™s» an explicit "€4)" is required. 


Ze 4s noted abovep a <COMMENT STRING> may appear 
anywhere within a “BIT STRING>» but not within the 
parantheses boundina the indicator digit. The 
presence of a <COMMENT STRING> will» in no way» alter 
the vatue of the <3IT STRING> cortaining it. Blanks 
may not appear in a <3IT STRING>. 


Example: 
39(03)96330316260/«% THIS */313230/% IS */63302569/*" THE */ 
43216260369/* LAST «/512523465124/% RECORD *«/3 


<STRING> t= CHARACTER STRING> 
| <3IT STRING> 


CHARACTER STRINGS 
CHARACTER STRING> 33 "<STRING CHARACTER LIST>*" 
<STRING CHARACTER LIST> site <EMPTY> 
1 <STRING CHARACTER LIST> 
<STRING CHARACTER> 
<STRING CHARACTER? ss <OIGIT> « <LETTER> | <SPECTAL CHARACTER> 
iw, s at &£ 4 fZ 
RESTRICTIONS: if a quote sign ts desired in a character 


strings then two adjacent quote signs must 
appear in the text. 
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EXAMPLE: DECLARE STRING CHARACTER (€6)> 
QUOTE CHARACTER C1); 


STRING 3= “"AB™"CDE; 
QUOTE 3S srnny 


After executione STRING witl contain: AB"CDE>» 
and QUOTE will contain: "™. 


Note: A <CHARACTER STRING> may contain a maximum of 
256 characterse 


CHAR _TASLE 


The translation bit table for the setwmembership reduction is 
rather cumbersome to construct by hand» so the compiler provides 
a coanventent notation for table constructs. These constants are 
written: 


<TABLE CUNSTANT> 3 CHAK_TABLE € <TABLE STRING> ) 
<TABLE STRING> ss= <STRING> ¢ <TABLE STPING> CAT <STRING> 
The constant denoted is a 256"c1t string with acidls 


corresponding to every character in <TAS8LE STRING>. (CWhen a <3IT 
STRING> occurs in the <TAALE STRING>> it %1s used to denote 
nonmgraphic characters in their hexidecimal CEECOIC) form.) 


QTHER CONSTANTS 


<CONSTANT> f= <NUNBER> § <STRING> t TODAYS_DATE 
1 SEQUENCE_NUMBER 
| HEX SEQUENCE_NUMBER 
1 <TABLE CONSTAWT> 


TODAYS _ DATE represents the date and time of 
comoitation of the prograa. It is the same as the 
date and time appearing at the top of the program 
Listinge It is a character string with the following 
format =" 


"MM/DD/YY HHIMM"™ 


SEQUENCE NUMSER represents a <CHARACTER STRING> of € 
characters which ts the sequence number of the 
current source image being compiled. 
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HEX_SEQUENCE_ NUMBER represents a bit string of 7 


Chex) digits which is the sequence number of the 
current source image line being compiled. {If this 
sequence field is blank» then HEX_SEQUENCE_NUMBER = 
a9600900)9 


If the current source image line sequence number is 
1275399%» then on this Line: 


SEQUENCE NUMBER = "127539000" 
HEX SEGUENCE_NUMBER = 23127530909 
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STRUCTURE OF AN SOL PROGRAM 


<PROGRAM> 33= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> 
<EXECUTABLE STATEMENT LIST> 
FINI 


<BECLARATION STATEMENT 
LIST> s::= <EMPTY> 
1 <QECLARATION STATEMENT> 
<DECLARATION STATEMENT LIST> 


<DECLARATIUN STATEMENT> 2:3= <DECLARE STATEMENT>; 
| <DEFIMNE STATEMENT; 
{ <FILE DECLARATION STATEMENT>; 
1 <SWNITCH FILE DECLARATICN 
STATEMENT>; 
{ <FORWARD DECLARATION>; 
1 <USE STATEMENT>; 
1 <SEGMENT STATEMENT >s 
1 <DECLARATION STATEMENT>; 
1 <RECORO STATEMENTS; 


<PXOCEDURE STATEMENT 
LIST> 3:5 <EMPTY> 
! <PROCEDURE STATEMENT>; 
<PROCEDURE STATEMENT LIST> 


<PROCEDURE STATEMENT> :3= <PROICEDURE DEF INITION> 
1 <SEGMENT STATEMENT> 
<PROCEQURE STATEMENT> 


<EXE CUTABLE STATEMENT 
LIST> ::= <EMPT Y> 
1 <EXECUTABLE STATEHENT> 
<EXECUTABLE STATENENT LIST> 


<EXCCUTABLE STATEMENT> 33= See SECTION 10. 


A program written in SOL must follow the sequential structure 
descricved in the syntax above. That is» the executable section 
of the fgrogram may not appear until all procedures have been 
detinede and procedures may not be defined before the formats of 
data ttems (varjables» arrayse etce) have teen dectarede "FINI" 
is not required» tut tf present must physically occur as the 
final statement tn the program. 
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The procedure statement Cincluding declaration» procedurer and 
executable statements) is the basic structure in SOL. An SDL 
program 15 a collection of procedures» each of which can be 
descrited for conceptual purposes as a microcosm of the program. 
Any given procedure may contain a collection of other procedures 
within itself. This process is known as “*Nesting™. 


The “Lexicographtc Level” of any statement in the program is 


egual to the number of procedures in which it is nestede The 
program itself will atways be Lexic Level Qe and no f¢rocedure may 
have a texic tlevet greater than 15. The diagram in Figure lL 


ilfustrates procedure nesting and Llexic Levels. 


{It is tmportant to understand the relationships between these 


nested procedurese As Figure 1. indicates»e the name of any 
given procedure 1s contained in the procedure in which it 1s 
nested at the next lower lexic level. For example» procedure OD 


is a Lexic Level 2 procedurer fowever» its namer "D0", is part of 
Lexic Level 1. 


The “scope™ of any given procedure 1s recursively defined as: 


1) The procedure itself» 
2) Any procedure(s) nested within the procedurep 
3) Any procedure (and its nested procedures) whose name 


appears at the same lexic level and within the same 
procedure as its own name» and 


4) The procedure in which its own nawe is defined. 


In F igure lL» one can see that the scope of Procedure 8 inctudes: 


1) Itself» tee» Procedure 8 
2) The nested procedures within 8 CC and D0)» 
3) The other procedures defined at LLO: E Cand its 


nested procedures F and G) and procedure H (and its 
nested procedures J» Ke Le» M» Neo and Pe 


4) The procedure which defines 3S» in this casep the 
program aA. 


Notes Ail the Lexic Level )J procedures have scope to each 
othere This occurs hecause of rule 4 abover wherein 
the program itself is thought to te a “procedure™. 
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In the same manner» the scope of procedure J includes J» Ks Leo My» 
N»e P» and He 


By understanding the relattonships between the various 
proceduresr it is possible to determine which procedures may Ce 
invoked by any given procedure. SOL has been defined so that any 
procedure X may call or invoke any procedure Yr if the scope of Y 
encompasses Xe 


In Figure lL» Procedure J may call procedures JeKeLeMeHeste and B 
because each of these contains J in its scope. 


Note: J cannot call the program A since the name of the 
prograne if there is one» exists outside the program 


and is» therefore, not compileds however» J may 
access the data contained tn 4A Ciee@ee Alvo AZ» A3r and 
A4). 


Figure 2 below shows the relationship between scope and calling 
ability for program A. 
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PROGRAM A 


DECLARE Al» AZ» AS» Ads 
PROCEDURE 33 
DECLARE Bi» B2e 833 
PROCEDURE Cz 
DECLARE Ch» C25» C3; 
EXECUTABLE STATEMENTS, 
END C; 
PROCEDURE OD; 
EXECUTABLE STATEMENTS; 
END Ds 
EXECUTABLE STATEMENTS; 
END i> 
PROCEDURE EF ' 
DECLARE El» E23 
PROCEDURE F-; 
NECLARE Fl» Fes F3; 
EXECUTASLE STATEMENTS; 
END Fes | 
PROCEDURE G; 
DECLARE Gl» 62> 
EXECUTABLE STATEMENTS, 
END Gs 
EXECUTABLE STATEMENTS; 
ENO E> 
PROCEDURE Hs 
DECLARE Ht» H2»5» H3» H43 
PROCEOQURE J; 
PROCEDURE K; 
END Ks 
PROCEDURE Ls; 
ENO Ls 
END; 
PROCEDURE M; 
PROCEDURE NN; 


ENO its 
PROCEDURE Ps; 
END P> 
END > 
END A; 
EXECUTABLE STATEMENTS; 
FINI 


Fig 1. Procedure Nesting 
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Procedure 


Scope 


Note: 


a om a oe > a ae —— a 7 ees Ue eee ee? 


48 cC D E F GH #J kK LM N P 

§ & & t& & & & * x * ik & « * x 
Cc & & & 

0 * * * 

E Fs & * x & * * & x & * ro & ie 
F 4 i & & 

G e) zk oR 

H & te * * te kof fe € k & k & ry 
J te * * * * * 
K fe x & 

L ie * ik 

M * de a * t & 
N * * 
P 


To find the scope of a grocedurer find the procedure 
in the column of procedure names. The horizontal 
rows to the right indicate the procedures in its 
scopee The procedures which may be called by a given 
procedure are marked in the vertical columns bdelow 
that calling procedure. 


Fig 2. Scope and Catling Ability 


hot 


BURRGUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEHS GROUP $LE9G/BL709 SOL CBNF Version) CF) 
SANTA BARBARA PLANT PeSe 2212 5405 


— <a ae ae a gee ee ee oe a ae 


<SEGMENT STATEMENT> 2:23= <SEGMENT STATEMENT WORD> C<SEGMENT PART>); 
<SEGMENT STATEMENT WORD> :s= SEGMENT 1! SEGMENT_PAGE 


<SEGMENT PART> s3= <SEGMENT I[TDENTIFIER> <PAGE PART> <IMPORTANT PART> 
<SEGMENT ITDENTIFIER> <IAPORTANT PART> <PAGE PART> 


<SEGMENT [OENTIFIER> s3= <IDENTIFIER> 

<PAGE PART> ::= <EMPTy> # OF <PAGE IDENTIFIER> 
<PAGE IDENTIFTER> 2s= <IDENTIFIER> 

<IMPORTANT PART> :3= <EMPTY> 1 » IMPORTANT 


As the SNF indicates» the <SEGMENT STATEMENT> may occur anywhere 
Within an SOL program. Its purpose is to reduce the memory 
requirement of the program ty allowing segments to overlay each 
othere 


There is a maxinum of L6 pages with 64 segments per page. The 
segment names reoresent a page"nunber segment *nunber paire 


It is only necessary to specify SEGMENT_PAGE once for each page. 
Every subsequent segment wilt be compiled to that page until 
another SEGMNENT_PAGE is encountered. 


if there are no SEGMENT_PAGE specifications» alt segments will be 
compiled to Page Zeroe and there may be no more than 64 segments 
total. If a program is to be segmertede the first statement must 
ve a “SEGMENT STATEMNENT>. Qtherwise a warning message will 
appear in the source Listing. 


There are two types o f segmentations "“yermanent”™ and 
"temporary". Every statement following a permanent <SEGMENT 
STATEMENT> witl be compited to that segment until another 
<SEGHENT STATEMENT> is read. Nonconsecutive statements may be 
conpiled to the same segment oy using the same <SEGMENT 
LCENTIF TER>. Note» however» that <D0 GROUP>s (See "DO GROUPS”) 
and procedures must end in the same segment in which they begin. 
If this is not the case» the compiler issues a warning and 
inserts code to bring the program tack to the proper segment so 
that the dotgroup or procedure may Ee exited correctly. 


The following example jititustrates the use of the “permanent"™ 
<SEGMENT STATEMENT>. 
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SEGMENT (CXX)5 

DECLARE Als» A2» A3Z>r AGS 

PROCEDURE Bs 
NECLAKE 31» B25 B35 
SEGMENT CYY)> 
PROCEDURE C; 


END Cs 
PROCEDURE Dz 


2 
2 


END Ds 
SEGMENT CXX)5 


END 3, 


FINI 


Unly procedures C and D have been compiled to the segment "YY". 
Segment "XX" is segment zero and includes everything else. 


A “SEGMENT STATEMENT> is treated as “temporary™ only when it 
precedes a "Subordinate Executable Statement™ within any of the 
following statements: 


CACCESS FILE HEADER STATEMENT> <SE4RCH OIRECTORY. STATEMENT> 


<CASE STATEMENT> <SEND STATEMENT> 
<IF STATEMENT> <SPACE STATEMENT> 
<READ STATEMENT> CWRITE STATEMENT> 


RECEIVE STATEMENT> <OPEN STATENENT> 


In these specific cases» the seqmert change arplies onty to the 
subordinate statement following ite For example» the syntax for 
the <IF STATEMENT> could te written as follows: 


<IF STATEMENT> i3= iF <EXPRESSTON> 
THEN <SUSOQRODINATE EXECUTABLE STATEMENT> 

1 TF <EXPRESSTON> 
THEN <SSUBORDINATE EXECUTABLE STATE MENT> 
ELSE <SUBDRDUNATE EXECUTABLE STATEMENT> 
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The segmentation of a hypothetical <IF STATEMENT> is presented 
below to illustrate the use of a “temporary” <SEGMENT STATEMENT>. 


SEGMENT CA)D> 
PROCEDURE X> 


IF Y>Z THEN Y:=Z3 ELSE 
SEGMENT (8)3 
D0 SOME_FUNCTIONS 


rt e & 


END SOME_FUNCTION? 


END X> 
*« Compiled to Seyment (8) 


Because the <*¢D9 GROUP>» "SOME FUNCTION,» is a subordinate 
<EXECUTAS8LE STATEMENT> in the <IF STATEMENT>» Seqment (3) 
automatically ends when tne <DO GROUP> is terminated. ALL 
statements following are compiled to Segment (A). 


Notice the distinction between Segmert CA)» a “permanent” 
“SEGMENT STATEMENT>» and Segment (8)» a “temporary” one. 


If the construct »IMPORTANT appears in the <IMPORTANT PART> of a 
segment statement» then the SOL/UPL compiler witl set the decay 
factor for that segment to seven. If the controt option word 
SIZe is used» a List of sagqment names» numbers and sizes will be 
printed at the end of the source Listing. The segments that have 
been marked » IMPORTANT witt be noted. 


EXAMPLES: 
SEGMENT CSEGZERO » IMPORTANT) > 
SEGMENT _PAGE C(CSEGONE OF PAGEZERO » [MPORTANT)> 
SEGMENT CSEGTwWO » IMPORTANT OF PAGEONE); 
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PRAGHATICS 


The decay factor field in the segment dictionary is three bits 
long. Ice will atways have a value cf zero or seven. Whatever 
value the compiler puts in the code file» the MCP changes it-e So 
when reading a memory dump» a value of zero means that the memory 
priority will decay more slowly. But when tocking at code files» 
a value of seven means that the memory priority with decay more 
slowly. 
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DECLARATIONS 


2 A aS Oe a ore ae ee ee a ee 


Three main types of data may be declared in SOL: 


1) sift 
2) CHARACTER 
3) FIXEC 


A bit field consists of a number of bits specified by a number in 
parentheses following the reserved word "SIT". The field may be 
amaximum of 652535 bits. 


A character field is oa number of characters» @& Fits eache 
specified by a number in parentheses following the reserved word 
"CHARACTER*. The field may be a maximum of 8»19L characters. 


&{ fixed data field is a 24"bit» signed numeric field where the 
high order bit is interpreted as the sign. Negative numbers are 
represented in 27s complement forme 


The range of signed numbers Ci.@e»e fixed data fields) is ~€2 exp 
23) to (2 exp 23)71. The range of unsigned numbers Cbit data 
fields) is 0 to (2 exp 24)-1. Bit fields» as noted abovesr are 
not restricted to 24 bits. However. for arithmetic purposese 
only the Lowrorder 24 bits wiil be considered except in the case 
of the extended arithmetic function. 
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The <DECLARE 


STATEMENT> 


See 
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DECLARE <DECLARE ELEMENT> 
<DECLARE STATEMENT>» <CDECLARE ELEMENT> 


<DECLARED PART> 

<TYPE PART> 

<STRUCTURE LEVEL NUMBER> 
“STRUCTURE DECLARED PART> 
<STRUCTURE TYPE PART> 

PAGED <ELEMENTS“PER“=PAGE PART> 
ARRAY LDENTIFIER> <ARRAY 3CUND> 
<TYPE PART> 

DYNAMIC <COMPLEX DYNAMIC> 
<DYNAMIC TYPE PART> 

<DECLARED REF> REFERENCE 
<DECLARED RECORD REF> REFERENCE 


specifies the addresses and 


characteristics of contents of memory storage areas. 


Any number of <BECLARE ELEWMENT>s may be declared in one <DECLARE 
STATEMENT>» and must Ge separated by commas. Best code 1s 


generated if alt elements 


are declared within one <DECLARE 


STATEMENT>O. (See Appendix VI). 


The maximum number of data elements Cincluding fillers» 


dummys» 


and implicit fitlers) contained in one structure varies as to the 
compttler being used» Ccurrantly: 50 = small version» 75 - Large 


version). Any attempt 


declare more wittl cause atable 


overflow error to be detected at compile time. 


An array may have a maximum of 65°535 elementse each being a 
maximum of 65%535 pits (82191 characters). 


The tive types of <DECLARE ELEMENT>s are each discussed celowe 
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RECORD STATEMENT 

CRECOKO STATEMENT> 332 RECORD <RECGRO ITDENTIFIER> 

<FIELO LIST> 
“RECORD IDENTIFIER> 2:5 <IDENTIFIER> 
eFIELD LIST> 3:s= <FIELD ELEMENT> 1 


<FIELD LIST>» <FIELD ELEMENT> 


1 C<COSPATIAL FIELD LIST>1 
i <FIELO LIST>» C<COSPATIAL FIELD LIST>] 


<COSPATIAL FIELD LIST> ¢: 


<FIELD ELEMENT> 
| <COSPATIAL FIELD LIST>» <FIELD ELEWENT> 


<FTELD ELEMENT> si <SiMPLE FIELD ECLEFENT> 
{| <COMPLEX FIELD ELEMENT> 


<SITIHMPLE FIELO ELEMENT> 3¢ 


<SIMPLE TOENTIFIER> <FIELD TYPE> 
1 FILLER <FIELD TYPE> 


<COMPLEX FIELD ELEMENT> s:= <ARKRAY IDENTIFIER> <ARRAY SOUND> 
<FIELD TYPE> 


<SIMPLE I[DENTIFIER> s2= <IDENTIFIER> 

CARRAY IT CENTIFIER> s2= <IDENTIFIER> 

<ARRAY BQOUND> 3: C<CONSTANT EXPRESSION>) 
<FITELO TYPE> 3: FIXED 


1 BIT <FIELD SIZE> 
{ CHARACTER <FIELD SIZE> 
1 <RECORD LDENTIFIER> 


<FIELD SIZE> °: 


C<CONSTANT EXPRESSTON>) 


DATA STRUCTURING 


— a a > a OR wm at an ee ee ee ee 


A new mechanism called Record is intended to eventually replace 
the PL/i-style structures currently being used in SOL. For 
comp atibititye of course» no current features witl be removed 
until they have fatten into disuse. Although records are used 
for the same purpose as the current structures» they are 
different in declarations references and runwtime effect. They 
are designed to provide the following benefits: 


1. Since fields of records are not represented by 
descriptors at runttimes they do not cause tlarge name 
stacks. This removes the need for USE declarations and 


elaborate SUBSITting schemes which have been used in the 
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paste 


Ze Pajged arrays may be structured using records. 
3s Arrays may occur nested in structurat levels. 


4. Accessing of Linked data structures is safer» siampler>e 
and often faster. 


5. The substructure is specified in one place» but may be 
invoked in many optaces to declare variable or specify 
substructure of other records» thus reducing the 
probability of error. 


6 The syntax encourages the treatment of data structures as 
new types»s hopefully imposing better structure on 
programSe 


A record is an addressing template analogous to a structure 
declared REMAPS BASE tn the current language. Dectaratiton of a 


record causes no data space to be altocatead> it only establishes 
an addressing schema in the scope of the declaration. An example 


of a record deaclaration is: 


RECORD TYPEFIELD 
NV BITCL)» 
NSR BITCL)» 


DATATYPE BITCH); 


RECIRD DESCRIPTNAR 
TYPE TYPEFIELD> 
LEN BIT(L6)» 
CaAdDR SLTC24)» 
VAL BITC24) 13 


This tworwtayered definition provides raughly the same effect as 
the following PL/I I-style structure: 
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DECL ARE 1 DESCRIPTOR REMAPS BASE> 
2 TYPE» 
3 NY¥ BITC1)» 
3. NSR BITC1L)» 
3 DATATYPE BITC6)» 
2 LEN BITC16)» 
2 ADDR BITC 24)» 
2 VAL REMAPS ADDR BITC 24)5 


The concept of making several fields atternative formats for the 
same aregar or “cospatial"™» is expressed by enclosing the List of 
alternatives in brackets. This has the advantage of not 
requiring a distinguished alternative {the largest) which is 
remapped» and it also groups atl the atternatives in one spot 
text uaily. 


Another distinction of record is in the nested use of definitions 
to achieve the effect of PL/I level numbers. The advantage here 
is that a single record may be used as part of severat other 
recordss at different tevels» or even more than once tn another 
record declaration. This can be done without repeating the 
definition af its suostructure» thus staplifying modifications. 
The use of a record in more than one context» of course» requires 
that qualified names be introduced. This ts discussed later in 
detaii.s 


Each field of aoe record has a type associated with it in the 
declaration (the type may be another record identifier)» and may 
also be arrayed by noting the array bound after the field 
identifter77* similar to an ordinary array declaration. The type 
of aneéearray fietd may be a record which also contains array 
fields» ie@.» arrays may be nested in a way not permitted by the 
current SOL structures. 


SIPUCTURES 


A structure which would 62 the functional equivalent of the 
current SDL structure aay be dectared using the previously 
defined record: 


DECLARE DO DESCRIPTOR; 


Declaring this structure allocates storage on the vaiue stack for 


the data (48 bits in this case) and allocates one descriptor on 
the name stack. A structure array could also te declared Cand 
paged» in this exampie): 


DECLARE PAGEDC16) DAC256) DESCRIPTURs; 
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This causes one array descriptor to be allocated. The space for 


the array is not allocated on the value stack in this case 
because the array 18 paged. 


The field of a structure is accessed by use of a qualified name. 
For example» the length field of descriptor "D0" is named "D.LEN* 
ana the type field is naned *D.TYPE". The namewvalue bit of the 
type fietd is named "D.~TYPE.NV". =When a component of the name is 
an arrays a subscript must be mentioned after that component as 
in "NAC 29) -TYPENSR". Qualification must be complete and 
exolicite untike that of PL/I or COBOL. The dot notation was 
chosen because it is akmost a standard among languages using 
qualified names. The underscore character ("_") 1s used aS a 
replacement for the current use of *." as an identifier creak 
character. 


fo provide a tink between current and new facilities» a field of 
a recerd may be named ty itself (no quatification) with an tndex. 
The effect is the same as indexing a field of a structure 
declared REMAPS BASE. This eases reprogramming since in many 
applications the structure declaration couid be rewritten as a 
record without caanging the rest of the code. 


ed a ob ee ee oe oe oe — —_ =. 


<STRUCTURED RECORD STATEHENT> s:= 
RECORD OL <RECORO I[CENTIFTER> <TYPE> 
<STRUC TURE ELEMENT S> 


<RECORO IDENTIFIER> 3s2= <IDENTIFIER> 


<STRUCTURE ELEHENTS> ise 
» “LEVEL NUMBER> <STRUCTURE ELE MENT> 


1 <LEVEL NUMBER> <STRUCTURE ELEMENT> 
wd » “STRUCTURE ELEMENTS> 


eSTRUCTURE ELEMENT> 2:5 
<FIELD NAME> <TYPE> 


1 <FIELD NAME> <ARRAY BOUND> <TY?E> 
! FILLER <TYPE> 


{ <FIELD NAME> REMAPS <REMAPS O8JECT> 


<TYPE> 
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Structured Records have been taplemented to allow easier 


conversion of the current PL/I-style structures to records. 


Structured Records have the same capabilities as RECORDS. 


Fields declared as an array may not have nested structure. 
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NONT STRUCTURE DECLARATIONS 

<DECLAXE ELEMENT> 33= eeel <DECLARED PART> Ieee 

<DECLARED PART> 225 <COMPLEX IDENTIFIER> <TYPE PART> 


1 C<COMPLEX IDENTIFIER LIST>) 
<TYPE PART> 

1 <COMPLEX IDENTIFIER> REMAPS 
<REMAP OBJECT> <REMAPS TYPE PART> 


<COMPLEX JYOENTIFIER 
LIST> 335 <COMPLEX IDENTIFIER? 
1! <COMPLEX IDENTIFIER>> 
<COMPLEX IDENTIFIER LIST> 


<COMPLEX IDENTIFIER> 725 <SIMPLE ITOENTIFIER> 
1 <ARRAY IDENTIFTIER> <4RRAY BOUND> 
<SIMPLE IDENTIFIER> cst <IDENTIFIER> 
CARRAY I[OENTLFIER> sis <TDENTIFIER> 
<ARRAY BOUND> 232 C<CONSTANT EXPRESSION>) 
<REMAP OBJECT> 33 BASE 


! <SIMPLE IDENTIFIER? 
1 <ARRAY ITDENTIFTER> 
{ <ADDRESS GENERATOR > 


<TYPE PART> ss FIXED 
! CHARACTER <FIELD SIZE> 
1 8I1T <FIELD SIZE> 
{ <RECORO IDENTIFIER> 


<REMAPS TYPE PART i: FIXED 


1 CHARACTER <FIELD SIZE> 
1 SIT <FIELD SIZE> 


<RECORD IDENTIFIER> si S<IDENTIFIER> 
<FIELD SIZe> 22 CCCONSTANT EXPRESSION?) 
<CONSTANT EXPRESSTON> s3= <NUMBER> | <CUNSTANT EXPRESSION> 


<CONSTANT EXPRESSION OPERATOR> 
<NUMBER> 1 C<CONSTANT EXPRESSTION>) 
<CINSTANT EXPRESSION 
OPERATQR> :3= 2+ 4 7 § © £ / FT MOD 
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Data may be declared as simpler» having ore occurrences or as 
subscriotedp having as Many occurrences as specified by the 


<ARRAY BOUND>. 


The <TYPE PART> specifies the type of data in the field and the 
field size. 


As the syntax indicates» different data fields having the same 
type may be declared coliectively as a <COMPLEX IDENTIFIER LIST>. 


The efollowing examples itlustrate the various oaptions available 
in thts type of <DECLARATION STATENENT>. 


DECLARE A FIXED» 
B CHARACTER €19)» 
€ BIT (435)>» 
CO» E» F C5) ) 3IT CLD)» 
G €29) FIXEDs ~ 
H (5) CHARACTER (€6)3 


1. A 15 a 24ebit signed numeric field. 

Ze 4 is a lO~pyte character field. 

3. C is a 40"bit field 

4e DO and E are 10“bit fietds each. 

5 F is a Smelement array of 10-bit fields. 

Ge G is a 29~ebLement array of 24*bit signed numeric 
fields. 

rs H 15 a 6"byte character array with five elements. 


Data fields may be re~formatted by the use of the remapping 
device: 


<COMPLEX IDENTEIFLER> REMAPS <REMAP OBJECT> <TYPE PART> 


Remapping is subject to the same generat rules discussed above. 
The following example best iftustrates its usee 


DECLARE A FIXED» B BIT (€5)9)> 
AA REM APS A CHARACTER (3) >» 
BBC2) REMAPS SUSBITCB-2) FIXED; 
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Note that 88 specifies 48-bits Cor 2 elements» 247bits each). A 
field may not te remapped larger than its original size. If the 
<FREMAPS OBJECT> is an <ADORESS GENERATOR> this check cannot he 
made until run timee The check witl te made only when the the 


compiler option FORMAL_CHECK is set. 


There is no Limit on the number of times a field may be remapped» 
A field wnich has remapped another may itself be remapped. The 
KEMAP option specifies that the identifier on the Left side of 
the reserved word REMAPS will have the same starting address as 
the identifier on the right side. 


For rules concerning the remapping of dynamic or formal 
deciarationsr see those sections» 


4 data field may be remapped to base which will give the field a 
relative address of zeroe For example: 


DECLARE X REMAPS BASE BITC), 


This device is used as a free"standing declaration since it does 
not remap a previously declared data item and is used primarily 
With data to be tndexed CSee ADDRESS VARIABLES). 
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<DECLARE ELEMENT> = wee PCSTRUCTURE LEVEL NUMBER> 
<STRUCTURE DECLARED PART> 
STRUCTURE TYPE PaRT> 1 cee 


<STRUCTURE LEVEL 


NUMBER> 332 <NUMBER> 
<STRUCTURE DECLARED 
PART> s%= <DECLARED PART> 

i FILLER 

1 <DUMMY PART> REMAPS <REMAPS OBJECT> 
<DECLARED PART> s3= See NON*“STRUCTURE DECLARATIONS 
<CUMMY PART> 3 DUMMY <ARRAY BOUND PART> 
<ARRAY SOUND PART> ss: <EMPTY> 

1 <4RRAY BOUND> 
<ARRAY BSOUND> 33 C<CONSTANT EXPRESSION>) 
“STRUCTURE TYPE PART> s:= <EMPTY> | 


1 <TYPE PART> 
1 CHARACTER | BIT 


<TYPE PART> 23:= See NON=STRUCTURE OECLARATIONS 


SOL allows the structuring of data where a field may be 
subdivided into a number of subcfields» each of which has its own 
identifier. The whole structure ts organized in a hierarchical 
forine where the most general declaration is at Level 91 Cor L) 
and the highest at Level 99. A sundivided field is called a 
group item» anda field not subdivided is known as an elementary 
item. 


when the REMAPS option appears on a declare with tevel numoer 
greater than oanep it is known aS an tntra™structure remape In 
this caser the <REMAPS OQOBJECT> must ~ode the tast identifier 


declared in the same structure with the same Level number unless 
that identifier was also dectared with REMAPS. In that case both 


must remap the same identifier. 


CecLARE 1 A 
23 3ds31TC5)- 
2 C BITC4&S)>, 
3 0 BIT C1)» 
KEMAPS C CHARACTERCI )» 


REMAPS C FIXED» 
FIXED, 


Min fh 
an Mm 
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ts legals» but E and F may not remap 8 or DO. 


The type and tlenath of data need not be specified on the group 


level. Atl elementary items must indicate type and Lengthe and 
the compiler wilt assume tyoe bit and add the tengths of the 
components to determine the tlength of the group item. For 
example: 


DECLARE gi Ap, 
02 Cs 
93 D BITC2))> 
03 E€ BITC39)» 
D CHARACTER SC5)> 


as 
MN 


In this example» both A and C are considered group itemse with aA 
having a totat Length of 90 bits and C being 50 bits long. 


FILLER 


FILLERS may ce used to designate certain elementary items which 


the program does not reference. If the group item has a tength 
specified and the FILLER ts the last item in a structures» it may 
be omittede and the compiter will consider the item to be an 


imptied FILLER. A& FILLER may never be used as a group items 


A group item may have a type specified with length omitted. The 
compiler wilt calculate the tLength from the tLength of the 
subitemse For exampie?: 


OECLARE Ol A CHARACTER> 
02 B FIXED», 
v2 CC B8BITCS)-, 


A will become type CHARACTERC4) Leaving an implied 43-bit filler 
after C. 


If the 91 Level group item is an array» it 1S mapped as a 
contiguous area in memorye However» subdivisions of this array 
are not contiguous. {n the exawple structure below: 


OL 405) SITC48)» 91 AC5)» 
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92 B FIXED, or 92 B FIXED» 
92 C FIXEDs 02 C FIXED, 


kee 4B bICtS 


& 
* 


f AY { Al ' A2 1 43 ! Ad 1 
! 89 $1 C9 § B1 ' CL ' Be I C2 1 BS t C3 1 B4 1 C4 I 


kek 24 bits 


[If a group item is an array» an array specification may not 


appear in any subordinate items that is» onty onerdimensional 
arrays are aitowed. Downwlevel carry of array specifications is 
implied. 

Structured data may be remapped in the same manner as 
non"structured data. In additicn» structured data may be 
remapred with a dummy group identifier. The purpose of this 


construct ts to allow the user to remap data items without having 
to dectare another group item which describes the same memory 


area. Thuse in the fottowing example: 


OL 4 BITCLOG), 
92 B BITC20 )» 
G2 C BITC8@0)s 


"A" might be REMAPped as 


OL AA REMAPS A BITCLOG Dp 91 DUMMY REWMAPS A 8IT(100)» 
92 BB BILIC3))» or 02 8B BITC Sa)» 
gd2 CC BIIC7N); 92 CC BITC70); 


Both A and AK in the above example refer to the same area in 
memorye Hence AA is redundant. During runtimes the descriptor 
for 4A wilt also be on the stack. 
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If DUMMY is substituted for the identifier AA» no descriptor witt 
te generatedr however BB and CC witl both point to A in the 
correct fashion. 


The user should note the distinction between DUMMY and FILLER. 
DUMMY is used tn conjunction with REMAPS to eliminate the 
necessity of declaring a redundant group items. FILLER is usad if 
one desires to skip over an area of core. 


The following restrictions apply to the use of CUMHY REMAPS: 


le DUMMY may only he used with remap declarations. 

Ze All the restrictions applying to REMAPS apply to 
DUMMY REAMAPS. 

36 DUMMY must not remap another DUMMY. 

4. DUMMY group items must have at least one nonvfiller 


component. 


9215 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81800/817090 SOL CBNF Version) CF) 
SANTA BARBARA PLANT PeSe 2212 5495 


<CECLARE ELEMENT > 33 | eeovl PAGED <ELEMENTS“PER@PAGE PART> 
<ARRAY IDENTIFITER> <ARRAY BOUND> 


<TYPE PART> 


<ELE MENTS “PER *PAGE 


PART> 3:5 C<KCONSTANT EXPRESSIGN>) 
<ARRAY TOENTIFIER> s:= <IDENTIFTER> 
CARRAY BUOUND> 3 3= (<CONSTANT EXPRESSTUN>) 


The paged array declaration aliows the user to segment arrays. 
The <ELEMENTS"PER@“PAGE PART> specifies the number of array 


elements contained in each segment. For example: 


PAGECDC64) A€4996) BITCL)> 


is an array of 4696» l-bit elements» segmented into 64>» 
64"-element segments. 


Restrictions: 


1. Paged arrays may not be indexed. 

Ze Paged arrays may not be part of a structuree 

36 Paged arrays may not be remaoped. 

4» The number of elements per page must be a power of 2» 


and may not exceed 32/768. 


5% The <A4RRAY SOUND> may not exceed 65535 but the 


bounds may be subsequently increased to a maximum of 
L6e777»215 by use of the GROW statement. 
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CYNAMIC DECLARATIONS 


<CECLARE ELEMENT> ::= eoe | DYNAMIC <DYNAMIC COMPLEX 
IDENTIFIER> «DYNAMIC 


TYPE PART> 1 eae 


<DYNAMIC COMPLEX 
ICENTIFIER> 3 s= <IDENTIFIER> 1$ <ARRAY I[DENTIFIER> 
<DYNAMTC SUBSCRIPT BOUNDS> 
1! PAGED <DYNAMIC ELEMENTS PER PAGE> 
<ARRAY IDENTIFIER> 
<DYN4AMTIC SUBSCRIPT SOUNDS> 


<DYNAMIC ELEMENTS 
PER PAGE> 


ot 
rT) 
NW 


C<EXPRESSTION>) 


<CYNAMIC SUBSCRIPT 


BOUNDS> i:= C<EXPRESSION>) 
<DYNAMIC TYPE PART> i3= BLY <DYNAMIC FIELD SIZE> 
1 CHARACTER <OYNAMIC FIELD SIZE> 
1} FIXED 


1 <RECORO LOENTIFIER> 


<ODYNAMIC FIELD SIZE> :3= CCEXPRESSION>) 


The dynamic declare statement allows the user to declare simple 
data with a non-static field length and/or array tound. For 
example: 


PROCEDURE ABX> 
DECLARE DYNAMIC X BITCA);> 


where A will determine the length of *X- The value of the 
CEXPRESSION> appearing in the <OYNAMIC FIELD SIiZe> is used to 
determine the number of oits or characters in the declared data 


item. If X were an arrays its bounds would be evaluated at run 
time as well. 
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Restrictions: 


be The variatles used in the <DYNAMIC FIELD SIZE> must 
have been previously itnitialized. 


2 » Oynamics tay not appear on Lexic Level 2%. 


Dynamic variables may be remapped» however a warning message will 
appear in the source Listing. It is the programmer's 
responsibility to ensure that a dynamic is not remapped larger 
than allowed. If S$FORMAL_ CHECK is sete this remapping tength 
will de run time checked. 
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<CECLARE ELEMENT> ss= eee! <DECLARED REF> REFERENCE! 2.» 


DECLARED XEF> 35 <SIMPLE IDENTIFIER> 
1 C<SIMPLE IDENTIFIER LIST>) 


<SIMPLE IDENTIFIER LIST> ::= <STHPLE IDENTIFIER> 
1 <SIMPLE I[DENTIFIER>>» 
“STHPLE TQENTIFLER LIST> 


Reference variables are used as pointers to data and their 
declaration does not allocate data space. A refererce variable 
has actlose anatog in a formal parameter declared VARYING. Such 
a parameter has only one type-» Length» and address associated 
with it for each invocation of the procedure in which it is 
declared» but it may te different for each invocation. The 
formal parameter is, bound (Cto the actual parameter) by the 
procedure catl mechanisa. 4 reference variable is an extension 
of this idea because it may be dectared anywhere other variables 
may be declared and may be rebound at any time using a statement 
known as the reference assignment statement or REFER statement. 
This statement binds the reference variable to a new referent. A 
few other SOL statements may change the referent of a reference 
variabte aiso» but not to any arbitrary address generator as does 
the REFER statement. 
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RECORD REFERENCE QECLARATIONS 


oe a a a ae ee —_ 0 ee a oe ee me oe wm ae 


<DECLARE ELENENT> 3:5 eee I KDECLARED RECORD REF> REFERENCE 122-2 


DECLARED RECORD REF> s3:= <SIMPLE IDENTIFLIER> 
CRECORD IDENTIFIER? 


In some casespe storage is not to be directly allocated for a 
record» bout a certain area of an array or Large string 1s. known 
to have the format specified by a record. This is the case in 
which indexing is applied currently. Record reference variables 
are designed to reptace this use of indexing. 


A record reference variable ts declared» Say for record 
DESCRIPTOR,» as 


DECLARE DR DESCRIPTOR REFERENCE; 


Record reference variables are assigned with a REFER statement 
Like ordinary reference variables» but they may be written in 
other statements as though they were structure namesSr ieaer they 


may have field qualifiers attached with the dot notatione Such 
an access subfields the current memory area described ty the 
reference variable according to the record specification. ror 
example» 


REFER DR TO SUBBITCMYAREA» 109» 48); 
X 3s= DR.LEN> 


assigns X to bits 198 through 124 of the string MYAREA. 


All restrictions which apply to normal reference variables are 
applicable to record reference variables as well. Record 
reference variables may not be used in the REDUCE statement. 
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<FILE DECLARATION 
STATEMENT> 332 FILE <FILE DECLARE ELEMENT LIST> 


<FILE DECLARE 
ELEMENT LIST> 3:22 <FILE DECLARE ELEMENT> 
| <FILE DECLARE ELEMENT>» 
<FILE OECLARE ELEMENT LIST> 


<FILE DECLARE ELEMENT> ¢e:= <FILE TOENTIFIER><FILE ATTRIBUTE PART> 
<FILE ITDENTIFITER> 2:5 <TOENTIFTER> 
<FILE ATTRIBUTE PART> i225 <EMPTY> 


{ C<FILE ATTRIBUTE LIST>) 


<FILE ATTRIBUTE LIST> sis <FILE ATTRIBUTE> 
1 <FILE ATTRISUTE>» <FILE ATTRISUTE LIST> 


<FILE ATTRIBUTE> 25 <LABEL PART> 

<OEVICE PART> 

<MOQDE PART> 

<BUFFERS PART> 

<VARIABLE RECORD PART> 
c<LOCK PART> 

<SAVE FACTOR PART> 

<RECORD SPECIFICATION PART> 
<AEEL NUMBER P4RT> 

<OISK FILE DESCRIPTION PART> 
<PACK-ID PART> 

<OPEN OPTION PART> 
<ALL_AREAS_AT_OPEN PART> 
<AREA_8Y_CYLINDER PART> 
cEU_ASSIGNMENT PAR T> 
<MULTI_PACK PART> 
<USE_INPUT_§LOCKING PART> 
<END_OF_PAGE PART> 
<REMOTE_KEY PART> 
<NUMBER_OF_STATIONS PART> 
eFILE TYPE PART> 

<WORK FILE PART> 

<LABEL TYPE PART> 

<INVALID CHARACTER REPORTING PART> 
<MONITOR SPECIFICATION PART> 
<SERTAL NUMBER PART> 
<GPTIONAL FILE PART> 

<TAPE LABEL PART> 
<EXCEPTION ASK PART> 
<TRANSLATE PART> 

<USER NAMED BACKUP PART> 
<PROTECTION PART> 
<PROTECTION_IO PART> 
¢HOST_NAME PART> 


mint am: 2 a =e oh a To oe Om le ee ee oe ee ee et ee ee ee ee a 
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All attributes are optional» as the above syntax indicates. 


Default Status will automatically be set for omitted attributes 
as fottlous: 


SYNTAX: <LABEL PART> 3:= LASEL = 
<FILE IDENTIFICATION PART> 
<FILE IDENTIFICATION PART> *%3= “NULTI“FILE ITOENTIFICATION> 
{ <MULTY"FILE 
ICENTIFICATION> 
<FILE IDENTIFICATION> 
<MULTISFILE LCENTIFICATION> 22= <CHARACTER STRING> 


<FILE IDENTIF ICATION> :3:= <CHARACTER STRING> 


where: 


<FILE IOENTIFIER> is a file or program identifier 
by which the program identifies the file. 


ands 
“<MULTICFILE IDENTIFICATION> and <FILE 
IDENTIFICATION> are name or contents of 
identification fieitd on fite tabel or isk 


Directory by which the system identifies the file. 


FORMAT: LABEL 
or 
LABEL = "NAME_1" 


WNAME_L® / "NAME 2" 


Example: 
FILE INV_DATA_1 CLABEL = "RCD_TAPE™ 7 *FYILE_17)3 


Note: The system will use only the first ten characters 
of the "“NAME*, 


DEFAULT If LABELCs) is Care) not specified» the INTERNAL FILE 
NAME> jeeeor “FILE IDENTIFIER>» is moved to <MULTI“FILE 
[DENTIFICATION> >» and tlanks are moved to <FILE 
IDENTIFICATION> in the FP38 CFILE PARAMETER BLOCK). 


SYNTAX = <DEVICE PART> :2= DEVICE = <DEVICE SPECIFIER> 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


<CEVICE SPECIFIER> ¢e:= 


<ACCESS 
<CEVICE 


<BACKUP OPTION> s:= 


CBACKUP SPECIFIER> s2= 


<SPOCIAL FORMS OPTION> 


<REMOTE OQPTION> s:= 


<QUEUE SIZE> ::= 


CQUEUVE OPTION> 


8180900/B1700 SOL C3NF 


—— a ee eee 
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TAPE 

TAPE_7 

TAPE_9 

TAPE PE 

TAPE_NRZ 

DISK <ACCESS HODE> 
DISK_PACK <ACCESS MODE> 
DISK_FILE <ACCESS MQDE> 


DISK_PACK_CENTURY <ACCESS MODE> 


DISK_PACK_CAELUS <ACCESS MODE> 
CARD 

CARD_READER 

CARD PUNCH <DEVICE OPTION> 
PRINTER <DEVICE GPTION> 

PUNCH <DEVICE OPTION> 
PAPER_TAPE_PUNCH 

<DEVICE OPTION> 
DATA_RECCROER_ 80 
READER_PUNCH_PRINTER 

<DEVICE SPTION> 

PUNCH_PRINTER <DEVICE OPTION> 
READER _96 

PAPER_TAPE_READER 
SORTER_READER 

READER_SORTER 

CASSETTE 

REMOTE (<QUEUE SIZE>) <REMOTE 


“OPTION> 


QUEUE CCQUEVE SIZE>) 
<QUEUE OPTION> 


<EMPTY> I 
<EMPTY> 
SCBACKUP OPTIOQN> 
<SPECIAL FORMS OPTION> 
ZSPECIAL FORMS OPTION> 
<BACKUP OPTIQN> 


SERIAL ft RANDOM 


<B4CKUP SPECIFIER> 

OR <BSACKUP SPECIFLIER> 
NO BACKUP 

BACKUP 1 BACKUP TAPE 
BACKUP DISK 


FORMS 


<EMPTY> & FAMILY 1 
FAMILY WITH HEADERS 


<NUMBER> 


<EMPTY> 


WITH HEADERS 
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1 FAMILY CS<FAMILY SIZE>) 


<FAMILY SIZE> ses <NUMBER> 


FORMAT: DEVICE = CARD 
CARD_READER 
TAPE 
TAPE_7 
TAPE_9 
TAPE_PE 
TAPE_NRZ 
#* DISK 
ee DISK PACK 
** DISK_FILE 
ee DISK _PACK_CENTURY 
ee DISK PACK _CAELUS 
* CARD_PUNCH 
PRINTER 
PRINTER FORMS 
PUNCH 
PUNCH FORMS 
PAPER _TAPE_PUNCH 
PAPER_TAPE_PUNCH FORMS 
DATA_RECORDER_8) 
READER_PUNCH_PRINTER 
READER_PUNCH_ PRINTER FORMS 
PUNCH_PRINTER 
PUNCH _PRINTE®? FORMS 
READER_96 
PAPER TAPE_READER 
SORTER_READER 
READER_SORTER 
CASSETTE 
eee REMOTE C<QUEUE SIZE>) 
axe QUEUE CCQUEUE SIZE>) 


+t eh ee ee we ee 


* may or may not be followed oy any single option below: 


BACKUP 
BACKUP TAPE 
BACKUP DISK 

OR BACKUP | 
OR BACKUP TAPE 
GR BACKUP DISK 
NO BACKUP 


Note: See <USER NAMED S3ACKUP PART> for rore on backup. 


*x may or may not be fottowed by any singte oaption 
below: 
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SERIAL 
RANDOM 


keke may or may not be followed by options applicadle to 
this “device”. See syntax abovee 


Examples: DEVICE TAPE 


DEVICE = PRINTER BACKUP 
DEVICE = PRINTER FORMS BACKUP TAPE 
DEVICE = REMOTECS) WITH HEADERS 
DEFAULT: in the absence of any specification» disk will be 


assumed by the compiler. 


SYNTAX: <MODE PART> 325 MODE = <MODE SPECIFIER> 
<MODE SPECIFIER> 32 <FILE PARITY PART> 
1 <TRANSLATION PART> 
<FILE PARITY PART> ::= ODd 4 EVEN 
CTRANSLATION PART> 275 EBCDIC § ASCII #! BCL § BINARY 
FORMAT: MOOE = 8CL 
MODE = ASCII 
HODE = EYEN 
DEFAULT: Default ts odd or EBCDICs whichever is applicable. 
SYNT AX: <BUFFERS PART> 325 BUFFERS = 
<NUMBER OF BUFFERS> 
<NUMBER OF BUFFERS> es CNUMNBSER> 
FORMAT: BUFFERS = NUMBER | 


{ 
DeFAULT: If not specified» ouffers will be set to 1 in the FPSB. 


SYNTAX: <VARIABLE RECORD PART> sis VART ABLE 
FORMAT: VARIABLE 


DEFAULT:= Not variable» jieew» fixed=size records. 


BURROUGHS CORPORATION 
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SYNTAX: <LOCK PART> 


FORMAT: LOCK 


a a 
oo 


DEFAULTs= LOCK is not set. 


SYNTAX: <SAVE FACTOR PART> 


<SAVE FACTOR> 


FORMAT: S4VE = NUMBER Cof 


DEFAULT: If not specified» 
3) in the FP6. 


SYNTAX: C<RECORD 
PART> 3 


<RECGRD SIZE SPECIFIER> 3 


SPECIFICATION 
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LOCK 
s3= SAVE = <SAVE FACTOR> 
<NUMBER> 


days to save file) 


the SAVE specifier wilt be set to 


RECOROS = <RECORO SIZE 
SPECIFIER> 


oe 
iT 


<PHYSICAL RECORD SIZE> 
1 <LOGICAL RECORD SIZE> 

<SLASH> 

<LOGICAL RECORDS PER 

PHYSICAL RECORD> 


<PHYSICAL RECORD SIZE> :3= <NUMBER> 
<LOGICAL RECORD SIZE> s:= <NUMBER> 
<LOGICAL RECORDS PER 
PHYSICAL RECORD> t:= <NUABER> 
FORMAT: RECORDS = NUMBER 
aoe = NUMBER / NUMBER 
Not e: <PHYSICAL RECORD SIZE> indicates the number of 


characters per blocks <LUGICAL RECORD SIZE>» the number 
of characters per record. 


Example: 


RECORDS 


or 
RECORDS 


1206 


129 / 16 


DEFAULT: In the absence of record specificationse unblocked records 
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of the following Lengths with be assumed. 


Disk 180 bytes 
Tape 89 bytes 
Any paper tape configuration 6&0 bytes 
Any 96 column card configuration 96 bytes 
AL t remaining card configurations #0 bytes 
Any printer configuration 132 bytes 
ALl others ?2 bytes 

SYNTAX: CREEL NUMBER PART> ::= REEL = <REEL NUMBER> 
“REEL NUMBER> ss <NUMBER> 

FORMAT: REEL = 2 

DEFAULT: The FPB assumes #1 in the absence of any specification. 


SYNTAX: <DISN FILE DESCRIPTIIN 


PART> 3:3= AREAS = <NUMBER OF AREAS> 
<SLASH> 
<PHYSICAL RECORDS PER AREA> 
CNUNSER OF AREAaS> ss <NUMBER> 
<PHYSICAL RECORDS 
PER AREA> ::= <NUMBER> 
Format: Areas = # of Areas / #Faf Blocks Per Area 


Example: Areas = 20 / &9 


Note? “<PHYSICAL RECORDS PER AREA> titndicates the 
number of blocks per areae This attribute is 
applicable for disk files only. 


DEFAULT: If areas are not specified»e the FP8 will assume 25 
Areas with 100 6Btocks Per Area. If the record 
specifications have been given the compiler will 
compute the number of Records Per Area. However p i f 
record specifications are omitted» the FPS will assume 
190 records per area. In either case then»p whether. 
areas are specified or not» the compiler will have 
computed the number of records for insertion in the 
FPE. 
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SYNTAX? <PACK_ID PART> i= PACK_ID = 
<PACK ITDENTIFICATION> 
<P ACK 
IVENTIFICATION> 33:= <CHARACTER STRING> 
FORMAT: PACK_ID = "NAME" 
Note: The system witl use only the first ten 
characters of the "NAME". 
DEFAULT: If absent» <PACK IDENTIFICATION> wilt be set to 
blanks in the FPS. 
SYNTAX: <OPEN OPTIOGN>:3= OPEN_GPTION= 
OPEN OPTION ATTRIGUTE LIST> 
<OPEN OPTION 
ATTRIBUTE LIST>: := <OPEN ATTRIBUTE> 
{1 <OPEN ATTRIBUTE> <SLASH> 
<OPEN OPTION ATTRIBUTE LIST> 
<OPEN ATT&@IBUTE> i= SEE "OPEN STATEMENT" O-? 
FORMAT: OPEN _OPTION = ATTRISUTE / ATTRISUTE. « -f 
Example: OPEN_OPTION = QUTPUT / NEW pron be oa 
Note: (om 
COPEN STATEMENT> may be separated oy commase afied ee 
<OPEN ATTRIBUTE>s in the <GPEN OPTION> above are 
separated by slashes. 
1.8, a 
€4 
DEFAULT: if aksent» the <OPEN <ATTRISUTE>s wilt te wit gah F pont 
follows: 


Tf <DEVICE> is: 


CARD 

PRINTER 

PUNCH 
QL Si 

REMOTE 

T 

QUEUE 


a ean 


aa At A 
COMPANY CONFIDENTIAL 
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<OPEN OPTION> ts: 


INPUT 
OUTPUT 
BUTPUT 
NPUT 
INPUT/OUTPUT 
NPU 
INPUT/OUTPUT 
ti ae al 
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SYNTAX: <ALL_AREAS_AT_OPEN PART> ::= ALL_AREAS_AT_OPEN 


FUNC TIQNS If this option is set» disk space for each area will 
oe al tocated when the file is opened. If 
insufficient space is available» a SPO message will 
indicate that there ts no user disk. 


DEFAULT: Areas are created as needed. 


SYNTAX: CAREA_BY_CYLINDER PART> ::= AREA_BY_CYLINDER 


FUNC TION: If this option is specified» each area will be placed 
at the beginning of a cylinder. If there is no 
(more) space at the beginning of any cylinder» a SPN 
message wilt indicate that there is no user disk. 


DEFAULT: 4reas are placed anywhere on disk-e 


SYNTAX: <EU ASSIGNMENT PART> ::= $€U_SPECI4L = <NUMBER> 
| EULINCREMENTED = <NUMBER> 


FUNCTION: The <NUMBER> specifies any integer 9 through 15. 
"EU_SPECIAL™ is appticable only with head-per-track 
disks ana systems disk packs» and specifies the drive 
on which tne file is to go. "EU INCREMENTED" 
specifies the disk drive on which the first area of a 
file is to gow Each subsequent area is placed on the 
next drive. If» with etther options the necessary 
EeUe is not available» E.Ue. 9 will be taken. 


DEFAULT: Space for files and areas is allocated anywhere on 
diske . 
SYNTAX 2 <MULTI PACK PART>: := MULTI_PACK 


FUNC TION: If this option is specified» the entire file may be 
put onto several disk packse 


DEFAULT: The file will be placed on one disk packe 


SYNTAX? <USE_INPUT_SLUCK ING 
PART> t:= USE_INPUT_BLOCKING 


5°29 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
CONPUTER SYSTEMS GROUP «1800781799 SOL CBNF Version) CF) 
SANTA BARBARA PLANT 7 P.S. 2212 5495 


FUNC TIONS: This option applies to input disk» taper or card 
files. If specified for disk» the record and block 
size specifications will be taken from the Disk File 
Header and the user's specificaticns will be ignored. 


{f specified for tape» the tape must be labeled; 
otherwise» a runtime error occurse If specified for 
card files» the foltowing record lengths wilt be 
assumed: 


B8O~7col = 380 bytes 
967cot = 96 bytes 
BIN = 960 bits 


DEFAULT: The record and block size are as stated in the file 


declaratione Those options omitted are set to 
default statuse 


SYNTAX: <END_UF_PAGE PART> ::= ENDO_OF_PAGE_ACTION 

FUNCTIONS This attribute will cause the EOF FART> of a <WRITE 
STATEMENT> to be executed at the end of a page on a 
printer file. Refer to "WRITE STATEMENT" and “ON 
SEQUENCE" for details. 


DEFAULT: No automatic paging action 


SYNTAX: CREMOTE_KEY PART>s s= REMOTE_KEY 


FUNC TION: This atrribute is used oanty with files of type 
"REMUTE". When present» it indicates that a key nay 


be present on a read or write to that file. If 
missing» then no key can be usede The format of the 
key is gtven oelow. Each field of the key 185 in 
decimal characters. The key is a total of L393 


characters formatted as follows? 

Station Number 3 characters 
Message Length Cboyte count) 4 characters 
Message Type (must be “Uudu") 3 characters 


DEFAULT: No remote key 


SYNTAX: <NUMBER_OF_STATIONS PART>:= NUMBER_OF_ STATIONS = <NUMBER> 
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FUNC TION: This attribute is used only with files of type 
"REMOTE. when presente it specifies the wmaximun 
number of stations that can be attached to this file. 


DEFAULT: NUMBER_OF _STATIONS=1 
SYNTAX <FILE TYPE PaRT>ss= FILE_TYPE=<FILE TyYPe SPECIFIER> 
“FILE TyPE SPECIFIER>: := DATA 1 INTERPRETER § CODE 


1 INTRINSIC t PSR_OECK 


FUNC TION: This attribute allows SUL programs to specify the 
type of the files they are creating. In particular » 
the compilers will use the type "CODE" for their 
codefiles. 


DEFAULT: FILE_TYPE = WATA 
SYNTAX <WORK FILE PART> 322 _- WORK_FILE 
FUNC TION: This attribute causes the job number to be iinctuded 


as part of the fite identifier. 


DEFAULT: Not a workfitle 
SYNTAX: <LABEL TYPE PART>::= LABEL_TYPE=<LABEL TYPE SPECIFIER> 
<LABEL TYPE SPECIFIER>::= UNLABELED § SURRCUGHS 


FUNCTION: This attribute allows the label type to te specified. 


DEFAULT: ANSIIT STANDARD LASEL 


SYNTAX:  <INV_CHAR_REPORTING PART>::= INVALIV_CHARACTERS= 
<INV_CHAR_REPORT TYPE PART> 


<INV_CHAR_ 
REPORT TYPE PART> ¢$3= 9t.pi2t 3 
FUNC TION: Invalid characters occurring in a print file will be 


reported on the SPJ to the computer operator» as 
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specified: 


VALUE TYPE 
0 Report all tines containing invalid 
characters. 
1 Report all tines containing invalid 
characters and then stop program. 
2 Report once that the file contains 
invalid cnaracter se 
3 Do not report that the file 
contains tinvalid characters. 
DEFAULT: G 
SYNTAX: <MONITOR SPEC PART> 33:5 MONITOR_INPUT_FILE 


{ MONITOR _GUTPUT_FILE 
FUNC TIUN: See Appendix VIII: SOL MONT TORING FACILITY 


DEFAULT Not present 


SYNTAX: <SERTAL NUMBER PART> 32 SERTAL 
1 SER TAL 


<NUMBER> 
<CHARACTER STRING> 


eo 


FUNC TION: The file wiit be opened on the outrut media with the 
specified serial number. 


CEFAULT Not present 


SYNTAX: <GOPTIONAL_FILE _PART> s:= OPTIONAL 


FUNCTIONS If this option is used on an input filer then the 
file may be missing and the operator may respond with 
the GF message to the FILE MISSING message. This 
wilt result in the execution of the ON EOF branch on 
the execution of the first read of tne file. 


DEFAULT: Reset 
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SYNTAX: <EXCEPTION MASK PART> 3 EXCEPTION_MASK = <BIT STRING> 
FUNC TION: The exception mask specifies the tyres of exceptions 


that the program is willing to handle for this 
particular file. See the 817090 MCP Manual for a 
description of the bit assignment within the bit 
strings Note that this string should generate a 
24-bit vatuee. 


DEFAULT: 2060000a 


SYNTAX:  <TRANSLATE PART> ::= TRANSLATE = <CHARACTER STRING> 

FUNCTION: The MCP will do a soft transtation on the file using 
<CHARACTER STRING> as the file-id for the translate 
table file. The multiwfiletid for the translate 
table file with be "TRANSLATE". 


DEFAULT: DEFAULT: No translation. 


SYNTAX 5 <USER NAMED BACKUP PART>2:2= USER NAMED _ BACKUP 


FUNC TION: [If the file goes to backup» its mame will be its 
given externat nate rather than a system selected 


name. 
DEFAULT: System selects backup file names. 
SYNT AX: <PROTECTION PART>: s= PROTECTION = <PROTECTION TYP£ PART> 


<PROTECTION TYPE PART>22= O f Ld 2 t 3 


FUNC TIGN: (See MCP Control Syntax product specification in File 
Attribute description. ) 


SYNT AX <PROTECTION_IO_PART> 23= PROTECTION_IO = <PROTECTION_IO TYPE 
PAK T> 
<PROTECTION_{fU TYPE PART::= 9 1 1 1 24 3 


FUNCTION: CSee MCP Control Syntax product specification in Fite 
Attribute description.) 
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SYNTAX: 


FUNC TION: 


DEFAULT: 


<HOST_NAME PART> 3= 
Specifies the name 


No host specified. 
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HOST_NAME = <CHARACTER STRING> 


of the host system for this file. 
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SWITCH FILE DECLARATIONS 


<SA€ITTCH FILE 
DECLARATION STATEMENT>: z= SWITCH_FILE <SWITCH FILE 
DECLARE ELEMENT LIST> © 


<SWITCH FILE 
DECLARE ELEMENT LIST>:s= <SWITCH FILE DECLARE ELEMENT> 
{1 <SWITCH FILE DECLARE ELEMENT>> 
<SWITCH FILE DECLARE ELEMENT LIST> 


SWITCH FILE 
CECLARE ELEMENT> ss <SWITCH FILE LOENTIFIER> CcFILe 
IDENTIFIER LIST>) 


<SWITCH FILE IDENTIFTIER>st= <I CDENTIFIER> 


<FILE TOENTIF TER LIST: := <FILE IDENTIFIER> 
1 <FILE IDENTIFIER>,» <FILE IDENTIFIER LIST> 


A switch file declaration specifies the elements of a "CASE™»s 
these elements teing files. A subscripted <SWITCH FILE 
TCENTIFIER> may be used anywhere that a <FILE IDENTIFIER> may be 
used. If there are N files in the <FILE IDENTIFIER LiST>» then 
the subscript must range from 9 to Nei. The value of the 
suodscript selects one of the N files in the list» depending upon 
ordinal position Cthe files in the <FILE IDENTIFIER LiST> are 
numbered from teft to right» begining with ¢). If all files in 
the <FILE [DENTIFIER LIST> are of type "REMOTE", then the switch 
file identifier is of type “RENOTE™. 
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The following example copies card images from cards» tape» or 
disk to cards» printers taper or disk: 


FILE 
CAROSCDEVICE=CARD) 
»eTAPEITCOEVICE=TAPE/USE_INPUT_8LOCKING) 
eCISKICDEVICE=DISK/USE_ INPUT _SLOCKING) 
, 

FILE 
PUNCHCOEVICE=PUNCH) 
eLINECDEVICC=PRINTER) 
»TAPEQCDEVICE=T APE » RECORD 5=8574) 
eCISKOCDEVICE=DISK,RECORDS=30/9) 


, 
SWITCH_FILE 
INPUTCCARDS»TAPEI,DO1SK 1) 
»CUTPUTCPUNCHs LINE» TAPE Os DISKO) 
, 
DECLARE 
INPUT_TYPE 3IT(24) 
,QUTPUT_TYPE BITC24) 
,»QUFFER CHARACTERC89) 


P 
DISPLAY “seems INPUT TYPE" 
ACCEPT LNPUT_TYPES 
INPUT_TYPEIBINARYCSUBSTRCINPUT_TYPE»Q>1)) MOD 33 
DISPLAY “keeex QUTPUL TYPE™S 
ACCEPT OUTPUT_TYPE3 
QUTPUT_TYPZIBINARYC SUBSTRCOUTPUT_TYPE»G-1)) MOD 43 
UPEN INPUTCINPUT_TYPE) INPUTS 
OPEN QUTPUTCOUTPUT_TYPE) OUTPUT» NEK> 
DO FOREVER; 

READ INPUTCINPUT_TYPE) C3UFFER)3 

ON EOF UNDOS 

WRITE QUIPUTCQUTPUT_TYPE) CBUFFER)3 
END? 
CLOSE OQUTPUTCOUTPUT_TYPE) WITH LOCK; 
STOP; 
FINI 
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<CECLARATIUN STATEMENT> 


eee ISDEFINE STATEMENT>3 1... 


<DEF INE STATEMENT> si= DEFINE <DEFINE ELEMENT> 
1 <DEFINE STATEMENT>>» 
<DEFINE ELEMENT> 


“<CMNEF INE ELEMENT> 335 <DEFINE ITOENTIFIER> 


<FORMAL PARAMETER PART> 
AS <DEFINE STRING> 


COEF INE [DENTIFIER> 3 3= S<IDENTIFIER> 


<FORMAL PARAMETER PART> = (C<FORM4SL PARAMETER LIST>) 
1 (<FORMAL PARAMETER LIST>] 
1 


cEMPTY> 


<FORMAL PARAMETER LIST> 


2=  <FORMAL PARAMETER> 
1 <FORMAL PARAMETER>>» 
<FORMAL PARAMETER LIST> 
<FORMAL PARAMETER> ::= <IDENTIFIER> 
eDEF INE STRING> t= RCWELL“FORMED CONSTRUCT>€ 


<WELL “FORMED CONSTRUCT> : 


oe 
it 


<EMPTY> 


| <BASIC COMPONENT> 
<WELL@FORMED CONSTRUCT> 


<BAS IC COMPONENT> 33= RESERVED WORD> 2SEE APPENDIX 
<IDENTIFTIER> 

<SPECIAL CHARACTER > 

<COMMENT STRING> 

<CONSTANT> 


—_ a sn a 


The <DEFINE STATEMENT> assigns the text enclosed between the “4" 
signs following the reserved word 45 to the sDEFINE IDENTIFIER>. 
Invocation of the <DEFINE IDENTIFIER> causes the text to replace 


the identifier» thereby providing a form of shorthand code. 


At dectaration times the compiler is unconcerned with the 
contents of the «DEFINE STRING>. However » when the <DEFINE 
TCENTIFIER> jis invokede the <HELL“FORMED CONSTRUCT> must conform 
to the syntactical requirements of the statement containing the 
identifier. 


Pie yf 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81800/B1700 SOL CANF Version) (CF) 
SANTA BARBARA PLANT PeSe 2212 5495 
There are two types of <DEFINE STATEMENT>s: Simple and 


Parametric» where the parameters are enclosed in parentheses or 


brackets following the sDEFINE IDENTIFIER>. Below are examples 
of both types: 


DEFINE A AS 4@IF X>10 THEN PROCKXS, 
CH AS #CHARACTE RS > 
BCYsZ) AS #IF Y<Z THEN Yi=Z2 @» 
CCM) AS # Xs=Ms A ds 


Notice that <DEFINE STATEMENT>s may be factored» with commas 
separating each element» 


The <DEFINE I[CENTIFIER> has scope in the same manner as any other 
identifier Cexcept for SEGMENT and DO“GROUP identifiers). 


Restrictions on the use of DEFINEs: 
Le Reserved words may not te used as <NDEF INE 
e 


IDENTIFIER>s» however » an identifier may defin 
reserved word. 


a 


oe "Special™ words may be used as <DEFINE L[DENTIFIER>s» 


however » their spectal significance is lost within 
the the scope of that <DEFINE STATEMENT>. 


36 <DEFINE INVOCATION>sS may appear within a “wELL-“FORMED 
CONSTRUCT>»  =jee@er a SDEFINE TUENTIFIER> may appear 
within another <DEFINE ELEMENT>. <DEF INE 
IDENTIFIER>s may be nested no more than 12 levels 
deepde 


he The identifiers Listed betow are never tooked up in 
the list of define namese 


DECLARE» DEFINE> PROCEDURE» and FORMAL IDENTIFIERS» 
SEGMENT and DO-GROUP IDENTIFIFRS,> 

FILE» OPEN» and CLOSE ATTRIBUTES» 

<FILE ATTRIBUTE STATEMENT> attribute names 


"ON" condition names CEOF» EXCEPTION» FILE_MISSING» 
Q FULL» Q_EMPTY»NO_INPUT» FILE_LOCKED» I[NCOMPLETE_IO)_ 


"ACCEPT"™/"DISPLAY” specifiers: END_OF_TEXT 
and CRUNCHED. 
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If one of theseyidentifiers happens to te the same as a “DEFINE 
ICENTIFIER>» no sudstitution occurs. The <wWELL<“FORMED CONSTRUCT> 


of the define wilt not replace the identifier. Note» howeverr 
that duplicate identifiers may not appear within the same lLexic 
Levels an error message results. 


5» There may be no more than eight <FORMHAL PARAMETER>S 
in a <FORMAL PARAMETER LIST>. 


6» Refer to Appendix VY for rules concerning conditional 
inclusion cards within defines. 


The following syntax “illustrates the format used inthe 
invocation of a <DEFINE I[DENTIFIER>: 


DEF INE INVOCATION> :25 <SIMPLE DEFINE IDENTIFIER> 
! <PARAHETRIC DEFINE IDENTIFIER> 
C<DEFINE ACTUAL PARAMETER LIST>) 


1 <PARAMETRIC DEFINE I[DENTIFIE> 
C<DEFINE ACTUAL PARAMETER LIST>] 


<SIMPLE OEF INE 


ICENTIFIER> 225 <DEF INE ITOENTIFIER> 


<PARAMETRIC 
DEFINE I[DENTIFIER> 225 <DEFIWE IDENTIFIER > 


<DEF INE ACTUAL 
PARAMETER LIST> 235 <DEFINE ACTUAL PARAMETER? 


1 <DEFINE ACTUAL PARAHETER>> 
<DEFINE ACTUAL PARAMETER LIST> 


<OEF INE ACTUAL 
PARAMETER> 322 <WELL@FORAED CONSTRUCT> 


A <DEFINE INVOCATIDON> may occur anywhere within an SDL program 


except in the cases tisted above in Restriction 4. As indicated 
by the above 8NFe the actual parameters of a define are not 


conf ined to constants and variables but may have a wide range of 
constructse For example» the <DEFINE STATEMENT> mentioned above: 


DEFINE A 4S @#IF X>19 THEN PROCKX4@> 
CH AS #CHARATCTER#> 
BCY»sZ) AS #IF Y¥<Z THEN Yt=Z fe 
CCM) AS 2 X23=Ms A #; 
might be invoked as fotlows:? 


CCZsBUNP ILR>S1)> 


which expands to: 
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Xs=Z, BUMP TEReSYs IF X10 THEN PRUCX; 
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The fotlowing restrictions apply to the use of the <DEFINE 
INVOCATION> =: 


1. 


2 


No unpaired bracketing symbols» teeter C) or C1» 


appear. 


Within a <DEFINE ACTUAL PARAMETER LIST>» commas 


may 


not 


enclosed within paired bracketing symbols act to 
deliait the <DEFINE ACTUAL PARAMETER>s. Therefore a 
<WELL-FORMED CONSTRUCT> not enclosed in bracketing 


symbols may not contain commase For example: 
DEFINE X€4eB8) AS # ACB) &s 
and invoked as: 
Z2=XCMer Qe Re S)> 

would result in the error message: 

DEFINE INVOCATION HAS TOG MANY PARAMETERS 
Proper invocation is possible by 
removing the parens from the define 


and placing then in the invocation: 


DEFINE XC 458) AS #4 A B &> 
Z2=XCMe CQPReS))s 


Conments are allowed but wilt be deteted from 
actual parameter text. 


the 
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FORWARD DECLARATION 


<DECL4ARATIGON STATEMENT> s3= eee l FORWARD DECLARATION> 1... 
<FORWARG DECLARATION> 2:5 FURWARD <COMPOUND PROCEDURE HEAD> 


<COMPOUND PROCEDURE 

HEAD> :2:= ; <PROCEDURE HEAD> 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<PRUCEDURE HEAD> i: <cBASTC PROCEDURE HEAD> 
<PXOCEDURE TYPE PART>; 
<PBASIC PROCEDURE HEAD> ss= <PROCEDURE NAME> 
 €FORMAL PARAMETER PART> 
<PROCEDURE NAME> 32= PROCEDURE <PROCEDURE T[OENTIFIER> 
<PROCEDURE ITOENTIFIER> 322 <TYPED PROCEDURE IDENTIFIER> 


1 <NON@“TYPED PROCEDURE [DENTIFIER> 


<TYPEC PROCEDURE 


ICENTIFGi€R> ss= <IDENTIFIER> 
<NON“TYPED PROCEDURE 

ICENTIFIER> 3 := <IDENTIFIER> 
<FURMAL PARAMETER PART> 325 <EMPTY> 


1} C<FORMAL PARAMETER LIST>) 


<FORMAL PARAMETER LIST> s2= <FORMAL PARAMETER> 
{ <FORMAL PARAMETER >» 


<FURMAL PARAMETER LIST> 
<FORMAL PARAMETER> 3:5 <IDENTIFTER> 


<PROCEDURE TYPE PART> 332 <EMPTY> 
{ <FORMAL TYPE PART> 


<FORMAL TYPE PART> ss= <TYPE PART> 
1 <TYPE VARYING PART> 


<TYPE P4&RT> 225 FIXED 
{f CHARACTER <FIELD SIZE> 


{1 sit <FIELD SIZE> 


<TYPE VARYING PART> ss VARYING 
1 BIT VARYING 
1 CHARACTER VARYING 


<FORMAL PARAMETER DECLA= 
RATION STATEMENT LIST> s3= <EMPTY> 
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1 <FORMAL PARAMETER DECLARATION STATEMENT; 
CFORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<FORMAL PARAMETER 
DECLARATION STATEMENT> <z:= FORMAL <FORMAL ELEMENT> 


1 FORMAL VALUE <FORMAL ELEMNENT> 
1 <FORMAL PARAMETER DECLARATION STATEMENT>» 
<FORMAL ELEMENT> 


<FORMAL ELEMENT> s3= (<FORMAL IDENTIFIER LIST>) 
<FGORMAL TYPE PART> 


1 <FORMAL IDENTIFIER> 
<FORMAL TYPE PART> 


<FORMAL INDENTIFIER LIST> 23= <FORMAL IDENTIFIER> 
1 <FORMAL IDENTIFIER LIST>» 


<FORMAL LTOENTIFIER> 


<FORMAL I[DENTIFIER> 2s:3= <COMPLEX IDENTIFIER> 
f <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTiFIER> z= <SIMPLE I[DENTIFIER> 
1 <ARRAY TDENTIFIER> 
<ARRAY SOUND> 


<VARYING ARRAY SPECIFIER> 2:3= <ARRAY [DENTIFIER > 
<VARYING ARRAY BOLND> 


<VARYING ARRAY BOUND> s2= (*) 


Before a procedure may be catled» SDL specifies that it must have 


been previously dectared. A contradiction arises when one 
procedure catls another procedure which in turn references the 
first. In this case» whichever procedure appears first must 


necessarily contain at least one reference to the second which 
has not yet been declared. 


The <FORWARKD DECLARATION> atlows the cprogrammer to use recursive 
references by providing a temporary procedure declaration. The 
<FORWARD DECLARATIUN>» howeverr does not eliminate the need for 
the norwal crocedure declaration which must follow tn the program 
and must have the same scopes 


The parameters mentioned in the <FORWARD DECLARATION> must be the 
same formal parameters Cin type and size» but not in name) that 
the procedure itself will declare. 
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Procedures may be either typed or non ttyped depenaing on their 
USe. Formal data types may either be static or varying» again 


depending on the program. These specifications will be discussed 
in the section entitled "THE PROCEDURE STATEMENT™. 


The fotlowing examples illustrate the use of the <FORWARD 
DECLARATION>: 


FORWARD PROCE CURE X CHARACTER VARYINGs 
FOR W4RD PROCEDURE JCK oL oA); 

FORMAL KC#*) BIT VARYING» 

LCL5) CHARACTER (&)>» 

M FIXED; 
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<USE STATEMENT> 225 USE C<SIMPLE [TOENTIF IER LIST>) 
OF <DEFINE IDENTIFIER> 


<SIMPLE IDENTIFIER 
LIST> s2= <SIMPLE ITDENTIFTIER> 
! <SIMPLE IDENTIFIER LIST>» <SITHPLE IDENTIFIER> 
<SIMPLE IDENTIFIER> iss <I DENTIFTER> 
<DEF INE IDENTIFIER> 2:= <I DENTIFTIER> 


The purpose of the <USE STATEMENT> is to altow the programmer to 
declare specific elements in a cefined structure within a 


proceduré. By specifying onty the agesired elements» the Name 
Stack size is kept to a minimus and program maintenance is 
simplified. The compiler witt generate the structure using 


fillers and the specified elements. 


The following restrictions apply to the <USE STATEMENT>: 


1. It must appear within a procedure (Cie@er» on a lexic 
Lleyel greater than 9). 


2% The referenced <DOEFINE IDENTIFIER> must define one 
structured declare statemente 

js The structure may not contain arrays. 

Le The outermost Level of the structure (31) must be a 


"CUMMY REMAPS". 


EXAMPLE : 


DEFINE X AS & 
DECLARE O1 DUMMY REMAPS A» % MIGHT ALSO REMAP BASE 
92 8 BITCS)» 
93 BL BITC2)>- 
03 B2 BITC3)>» 


02 C CAARACTERCLO)» 
92 D SITCL)» 

o2 £ FIXED» 

M2 F BITC24 )#> 


PROCEDURE FIRST? 
USE (C»D) OF Xs 
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From the above <USE STATEMENT> the compiler witt generate the 
following structure: 


Q1 DUMMY REMAPS A> 
O92 FILLER BIT(5)>» 
O03 FILLER BiTC2). 
93 FILLER BITC3)> 
92 ¢ CHARACTERC19)» 
v2 0 BITC(L)» 
92 FILLER FIXED, 
O02 FILLER BITC24 ds 


Note that Ller was substituted for the group item 8B. This 


fi 
woula normally generate a syntax errors» and is allowable only in 
the <USE STATEMENT>. 
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PROCEOURES 

<PROCEDURE STATEAENT> 33= <PROCEDURE DEFINITION> 


1! <SEGMENT STATEMENTS 
<PROCEDURE STATEMENT> 


<PROCEDURE DEFINITION> :3:= <COMPOUND PROCEDURE HE4AD> 
<PROCEDURE 3sODY> 

<SEGMENT STATEMENT>::= SEE "THE SEGMENT STATEMENT" 

<PROCEOURE BODY> s:= <DECLARATION STATEMENT LIST> 


<PROCCOURE STATEMENT LIST> 
<PROCEDURE EXECUTABLE STATEMENT LIST> 


<PROCEQDURE ENDING> 


Procedures are self"contained functional units within an SOL 
program which may be accessed according to specific rutes 
discussed under "BASIC STRUCTURE OF THE SOL PROUGRAM™. Procedures 
may be created by preceding self~contained statements with a 
<COMPCUND PROCEDURE HEAD>» and terminating it with a <PROCEDURE 
ENDING>. 


The <PROCEDURE ODEFINITION> is composed cf three basic parts: 
heading» bodys» and endinge [Identifiers declared in a procedures 


may be accessed only in the procedure tn which they are declared» 
and in procedures nested within the declaring procedure. 


Procedures may be either “TYPED" or “"NON“TYPED"™. A "TYPED" 
procedure returns some value of the type specified in the 
procedure declaration to the expression where the procedure was 


invoked. See "VALUE VARTAPLES" for details. A "NION“TYPEO"™ 
procedure performs a functions does not return a value» and is 
invoked in an <EXECUTE PROCEDURE STATEMENT>. See "EXECUTE 


PROCECURE STATEMENT™. 
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PROCEOQURE HEA! 


The syntax for the procedure heading 15s? 


<COMPOUND PROCEDURE 

HEAD> 3:3 <PROCEDURE HEAD> 
<FORMAL PARAMETER DECLARATION 
STATEMENT LIST> 


<PROCEDURE HEAD> s:= <BASIC PROCEDURE HEAD> 
<PROCEBURE TyPE PART> 


<BASTIC PROCEDURE HEAD> ::= <PROCEDURE NAME> 
<FORMAL PARAPETER PART> 


<PROCEDURE NAME> 322 PROCEDURE <PROCEDURE IDENTIFIER> 
PoINTRINSTIC <INTRINSIC LDENTIFIER> 


<PROCEDURE IDENTIFIER> <3= <TYPED PROCECURE ICENTIFIER> 
1 <NON“TYPED PROCEDURE ICENTIFIER> 


<TYPED PROCEDURE 


ICENTIFIER> se= <IDENTIFTER> 

SNONTTYPED PROCEDURE 

ICENTIFIER> 32= <IDENTIFIER> 

CINTRINSIC IDOENTIFIER> <:= <TYPED INTRINSIC LOENTIFER> 


{ <NON*TYPED INTRINSIC IDENTIFER> 


<TYPED INTRINSIC 
ICENTIFIER> 33= <LDENTIFIER> 


<NONW“TYPED INTRINSIC 
ICENTIFIER> 3 i= <IDENTIFTIER> 


“FORMAL PARAMETER PART> 3s3= <EMPTY> 
[ (<FORMAL PARAHETER LIST>) 


<FORMAL PARAMETER LIST 33:= <FORMAL PARAMETER> 
1 <FORMAL PARAMETER> >» 
FORMAL PARAMETER LIST 
<FORMAL PARAHETER> 2 <IOENTIFIER> 


<PROCEQURE TYPE PART> t= CEMPTY> 
1 <FORHAL TYPE PART> 


“FORMAL TYPE PART> 325 <TYPE PART> 
1 <TYPE VARYING PART> 


<TYPE PART> 3 := FIXED 
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1 CHARACTER <FIELD SIZE> 
! BIT <FIELD SIZE> 
1 REFERENCE 


<FIELD SIZE> 2:55 C<CONSTANT EXPRESSTON>) 


<TYPE VARYING PART> ::= VARYING 
1 BIT VARYING 
f CHARACTER VARYING 


<FORMAL PARAMETER DECLA~ 
RATION STATEMENT LIST> 332 <E MPT Y> 
1 <FORM4AL PARAMETER DECLARATION STATEMENT 
LIST>; 
<FORMAL PARAMETER DECLAKATION> 


<FORMAL PARAMETER 
DECLARATION STATEMENT> se FORMAL <FORMAL ELEMENT> 
{ FORMAL _VALUE <FORMAL ELEMENT> 
| <FORMAL PARAMETER CECLARATION STATEHENT>» 
«FORMAL ELEMENT> 


<FOR MAL CLEMENT> i= C<FORMAL IDENTIFIER LIST>) 
cFORMAL TYPE PART> 
1 <FORMAL IDENTIFIER> 
<FORMAL TYPE PART> 


<FORHAL IDENTIFIER 
LIST> ss= FORMAL [DENTIFIER> 
1 <FORMAL IDENTIFIER LIST>>» 
<FORMAL IDENTIFIER> 


<FORMAL [DENTIFIER> 335 <COMPLEX IDENTIFIER> 
1! <VARYING ARRAY SPECIFIER> 


<COMPLEX IDENTIFIER> 23= <SIMPLE IDENTIFIER > 


1 <ARRAY IDENTIFIER> 
<ARRAY BOUND> 


<VARYING ARRAY 


SPECIFIER> 3:5 <ARRAY IDENTIFIER> 
<VARYING ARKAY BOUND> 


C<VARYING ARRAY BOUND> 325 (*) 


The procedure heading» ieee.» <CUMPOUND PROCEDURE HEAD>» contains 
the <PROCEDURE NAME>» formal parameters Cif any)» and the 
<PROCEDURE TYPE PART>»+ i.eer the field type of the vatue to be 
returned if the procedure is "TYPED". For example: 
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PROCEDURE X CMeN) FIXED, 
FORMAL CHeN) VARYING? 


which corresponds to the following syntax: 


PROCEOURE <TYPED PROCEDURE LTOENTIFIER> 
CCFORMAL PARAMETER>s <FORMAL PARAMETER?) 
<PROCEDURE TYPE PART>; 
FORMAL C<FORSAL IDENTIFIER>» <FORMAL IDENTIFIER>) 
<FORMAL TYPE PART>; 


In this case» the value returned to the potnt of invocation 
should be fixede There is» however» no check for this at compile 
time » [f the control card option FORMAL_CHECK its present» the 


returned values will be checked against the procedure type at run 
time e 


The "NON“TYPZD"™ procedure foltows the same format except that the 


<PROCEDURE TYPE PART> is omitted since no vatue is returnede For 
Instances: 


PROCEOURE A (JeKeLl)> 
FORMAL J FIXED» CKeL) BIT VARYING; 


which syntactically is the same as: 


PROCEDURE <NONeTYPED PROCECURE IDENTIFIER> 
C<FORMAL PARAMETER>»<FORMAL PARAMETER>» 
<FORMAL PARAMETER> D3 
FORMAL <FORMAL IDENTIFIER> <FORMAL TYPE PART>>» 
(<FORMAL [CENTIFTIER>»<FORMAL ICENTIFIER>) 
<FORMAL TYPE PART>>; 


When a foraalk parameter 1s declared as FORMAL_VALUE> the actual 
parameter will atways be passed by value. See the section on 


ADDRESS and vALUE PARAMETERS. 


The field type of formal parameters Ci.e.e» components of the 
<FORMAL TYPE PART>) may be static (BIT» CHARACTER» ofr FIXED) or 
variabte CBIT VARYING» CHARACTER VARYING» or VARYING). 


The <FIELO SIZE> must be a <<CONSTANT EXPRESSTON> Cieeee an 
expression whose value can be determined during compitation). 
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9ften however» it is impossible to determine the data type at 


compile time especiaitly if the actual parameters are passed to 


the pracedure from different points itn the program and under 
differing circumstances. SDL allows the user to specify variaodle 
data fields in the formal declaration. The actual parameters 
passed to that procedure will provide the specificse Thus 
formats may be declared as "BIT VARYING™»s "CHARACTER VARYING» or 
"VARYING". 


In a variable bit or character field» the type of data passed 
must be that which is specified Cieee» 8LT or CHARACTER).- The 


length» however » remains vartable. Formals specified as 
"VARYING" may accept any type of data of any tlengthe 


The data types of corresponding formal and actual parameters will 
not be checked at compile time and onty at run time when 
FORMAL CHECK has been specified as a control cara option. 


Varying formals tmay be remapped» but it 1s the programmer's 
responsibility to ensure that the remapped formal parameter and 
its corresponding actual parameter match. ‘4 warning message witt 
appear in the source {listing where the rerarping has occurred. 


SOL also attlows formally dectared arrays to have a variable 


rumber of elements by subdstituting "*" for the number following 
the <ARRAY TDENTIFTER>. For instance? 


PROCEDURE X (CAod); 
FORMAL 4&4 C#) FIXED» 3B C#) VARYING; 


INTRINSIC HEAD 


The word “INTRINSIC™ may be used interchnangeatly with the word 
"PROCEDUKE™. It ise however» intended onty for use by the SOL 
group tn order to provide SDL intrinsics- 


The use of “*INTRINSIt™ forces che intrinsic to have as entry 
point the dispiacement ) within a new segment. 


xk & 
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PROCEDURE BOOY 


The body of the procedure follows the heading. Included are 
declaration of tlLocat data (discussed under “THE DECLARATION 
STATEMENT") » nested procedures (atso see "BASIC STRUCTURE OF THE 
SCL PROGRAN")» executable statementse and an ending. The syntax 
for the <PROCEDURE EXECUTABLE STATEMENT LIST> follows: 


<PROCEDURE 8UDY> s:= <DECLARATION STATEMENT LIST> 
<PROCEDURE STATEMENT LIST> , 
<PROCEDURE EXECUTASLE STATEMENT LIST> 
<PROCEDURE ENDING> 


<PROCEDURE EXECUTABLE 
STATEMENT LIST> 332 <PRUCECURE EXECUTABLE STATEHENT> 
1 <PROCEDURE EXECUTABLE STATEMENT> 
<PROCECURE EXECUTASLE STATEMENT LIST> 


<PROCEDURE EXECUTABLE 
STATEMENT> i: CEXECUTAELE STATENENT> 
1 <RETURN STATEMENT> 
1 <SEGMENT STATEMENT> 
<PROCEQURE EXECUTABLE STATEMENT> 


The <EXECUTABLE STATEMENT>s wilt be discussed in the section 
entitted "EXECUTABLE STATEMENTS". As indicated by the above 


syntaxe . executable statements within a Efrocedure may “be 
segmentede Howevers a procedure must end in the same segment in 
which it beginse For other segmentation restrictions see “THE 


SEGMENT STATEMENT". 


The syntax for the <RETURN STATEMENT> iss 


<RETURN STATEMENT> 332 <TYPED PROCEDURE RETURN STATMENT> 
1 <NON@“TYPED PROCEQURE RETURN STATEHENT> 


<TYPED PROCEDURE 
RETURN STATMENT> 3s= RETURN <EXPRESSIQN> 


<NONwTYPED PROCEDURE 


RETURN STATEMENT> z= RETURN 
1 RETURN_AND_ENASLE_INTERRUPTS 


The <RETURN STATEMENT> takes one of two forms depending on the 


type of the procedure encompassing ite [f the procedure is 
“TYPED™» an <EXPRESSION> must be returned to the point of 
invocation. In a "“NON“TYPED™ procedure,y only a siwple return is 
needede For expression specifications refer to the sections 


entitled "EAPRESSTIONS* and "PRIMARIES™. 
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Type checking on a “RETURN STATEMENT> is dene only at run time 
when FORNAL.~CHECK appears as a control card option. 


Within any given procedure Cat any tLexic Level)» certain 
statements are nested within other statements and are accessed» 
much Like a procedure» by an address generated by the tLarger 


statement. The most general nesting level is zero» and the 
nesting level of any statement appears on an SDL listing under 
the column “AL. The most common instance of statements 


accurring at Nesting Level 1 or greater are: 


* 


1. The conditionally executed statements following 
"THEN”™ and "ELSE" in the <IF STATEMENT>. 


2 Statements contained within a <CASE STATEMENT>. 


3 <DO-GROUP>s. 


If the compiler cannot find a <RETURN STATEMENT> on AL GC» it will 
generate one directly preceding the “PROCEDURE ENDING>. This is 
merely a safety measure to insure that a procedure can always be 
property exited. 


A compiler-generated return works essentially in the same manner 
as an explicit returns In a nonstyped procedure» control is 
returned to the point of the procedure's invocation. In a typed 
procedures the following values are returned. 


If the grocedure is typed: the compiler will return: 

BIT BITS CONTAINING 9 
OF LENGTH SPECIFIED 

CHARACTER SLANKS OF LENGTH SPECIFIED 
FIXED FIXED ZERO 
BIT VARYING @-BITS OF ZERO 
CHARACTER VARYING ONE BLANK 
VARYING FIXED ZERO 


RETURN_AND_ENABLE_INTERRUPTS is for MCP use onty. It will cause 


a normal procedure exit to take placer and wilt enable interrupts 
as well. 
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PROCEDURE ENDING 


The <PROCEDURE ENDING> is the final statement of a frocedures and 
the syntax is: 


<PROCEDURE ENCING> s?= END 
! END <PROCEDURE CCENTIFIER> 


The identifier following the reserved word “END"™ is optional. 
Its sole purpose is to simplify the documentation of the program. 
if an identifier is supplied ty the user» the compiler will 
perform a syntax check to guarantee that the <PROCEDURE ENDINE> 
is appropriately placed. 
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CASSTIGNMENT STATEMENT> 33= 


C<ADDRESS VARIABLE> 22 
<REPLACE> ss= 
<EXPRESSION> 


<STRING EXPRESSTION> 325 


<OR@ ING OPERATOR> 


<LOGICAL FACTOR> 2:= 


<LUGICAL SECONDARY> 


<LOGICAL PRIMARY> 


CRELATION> i235 


“ARITHMETIC 
EXPRESSION> 3 := 


<ADDITIVE OPERATOR> 


— 
— 


<TERM>32= 


MULTIPLICATIVE 
QBPERATOR> 


ese 
oom 


f=1 


COMPANY CONFIDENTIAL 


3189¢6/317090 SDL CBNF Ver 
Ps5s 


“ADDRESS VARTABLE> 
<REPLACE> 
C<EXPRESSION> 


SEE "ADDRESS VARIABLES" 


om 
o= 


STRING EXPRESSION> 
<STRING EXPRESSION? 
CAT <EXPRESSION> 


<LOGICAL FACTOR> 
<LOGICAL FACTOR> 
<OR“ING OPER ATOR> 
<STRING EXPRESSION> 
OR { EXOR 

<LOGIC4L SECONDARY> 
<LOGICAL SECONDARY> 
AND <LOGICAL FACTOR> 


<LOGICAL PRIMARY> 
MUT <LOGICAL PRIMARY> 


<ARITHMETIC EXPRESSTON> 
“ARITHMETIC EXPRESSIOQN> 
<RELATION> 

CAREITHVETIC EXPRESSION? 


€< § <= | = | f= 1 >= t D> 1 
LSS { LEQ 1 EQL ] NEQ 
GEQ i GTR 

<TERM> 

<TERA> 


<ADDITIVE OPERATOR> 
<ARITHMETIC CXPRESSION> 


+ | - 


<STGNED PRIMARY> 

<STGNED PRIMARY> 
<MULTIPLICATIVE QPERATOR> 
<TERMD 


« | 


MOD I / 


sion) (F) 
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<SIGNED PRIMARY>3: 3:5 


<UNARY OPERATOR> ss= 


<PRIMARY> 
<UNARY OQPERATOR> 
<PRIMARY> 


+ 
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The following is a tist of the SOL operators from highest 
precedence to towest. This tist or the table in Figure 3 may be 
used when evaluating an expressions 


+ » = (<UNARY OPERATOR>) 


«» /» MUD 
ty = C<ADDITIVE GPERATOR>) 
<a =p =p =p >=, > 
NOT 
AND 
OR» EXOR 
CAT 
l. The assignment operator has higher precedence than 


any operator to its teft and tower precedence than 
any to its right. 


Ze The order of evaluation of operators having equal 
precedence is always from left to right. 
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PRESENT OP. 


NEG « t+ - = NOT AND OR CAT s= C ) ET 
NES > > > > < > > > < < > > 
* £ > > > r4 > > > 4 < > > 
+ = < < > > ¢€ > > > < < > > 
P 
R = < < < > < > > > € < > > 
a 
] NOT < < < < > > > > < < > > 
I 
0 AND < < 4 € € > > > < < > > 
U 
5 OR € < < < < < > > < “ > > 
0 CAT < < < < < < < > < < > > 
a= < < < < < < < < < < > > 
( < < < 4 < < < < < < = 
) > > > > > > > > > 
PT < < < < < < < € < < = 
FORMULA: PRECEDENCE <PREVIOUS OP> <RELATION> PRECEDENCE <PRESENT GP> 
NOTE: NEG UNARY OPERATORS 
& MULTIPLICATIVE OPERATCRS 
= RELATIONAL OPERATORS 
3= REPLACE OPERATORS 
BT INFERRED BEGINNING TERMINATOR 
ET INFERRED ENDING TERMINATOR 


Fig 3- Operator Precedence Table 
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The unary operator acts upon one operand and may never appear as 
an infix operator between two operands. It may appear to the 
right of any other operators including itself. 


The UNARY MINUS (7) generates the two's complement of the operand 
associated with it Cieen» “X = CNOT X)t#l). The operana may be 
any data type. If it is fixed» the UNARY MINUS has the effect of 
reversing the signe and the result is Labeled on the Evaluation 
Stack as fixed. 


If the operand is either a character or bit strings only the 
lowrtorder 24 bits will be evaluated. Strings tess than 24 tits 
will be padded with leading zeroes to 24 bitse The two's 
complement of the string 1s generated and returned to the stack 
as type fixed. 


The SDL compiler generates no code for the unary plus (+) which 
exists solely for the convenience of the programmer. 


ARITHMETIC QPERATORS 


+ Addition 

- Subtraction 

* Multiplication 

YOD Division yielding integer value of remainder 

/ Division yielding itnteger value of quotient 
The arithmetic operators perform 24"bit arithmetic on two 
operands of any of the three data typeso Sign analysis will be 


done cnty if both operands are fixede With any other conbination 
of data types» the magnitudes of the operands are evaluated. 
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For both bit and character data» if the field is greater than 24 


bits» onty the towrorder 24 tits witl be evaluated. If the field 


is tess than 24 bits» leading zeroes will be supptied from the 
left. 


A 24-bit result will be returned to the Evaluation Stack. If 
both operands are fixed» the result wilt oe fixed. Otherwiser 
the result will de type dit. 


SDL division results in an integer vatue. Any remainder is 
truncated thus: 


7 /3=e 
3 47 = 9 
Note this means that "*" and "/" do not associate. In general» 


CA * B) / C does not equal 4* (8 / CC). 


The MCD operation is division resulting in the tnteger value of 
the remainder. [t is evaluated by the following formul az 


Y “GD 2 = YeC(Z*CY/Z)) using integer division explained above. 


For example: 


7 M09 3 = 7"™€3 * 2) = i 
“7 MOD 3 = "77C€3*"C42)) = “1 
$3 MOD “7 = 3700773 *079)) = 3 
“3 MOD -f = C83)"€C"77) * 9) = -3 
Note: For negative arguments» this definition is not the same as 


the traditional definitions from mathematics. 


RELATIONAL OPERATORS 


= Eat EQuart 10 
/= NE Q NOT EQUAL TO 

> GTR GREATER THAN 

< L335 LESS THAN 
>= GEQ GREATER THAN OR EQUAL TI 
<= LEQ LESS THAN QR CeVAL TO 
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The relational operators do a comparison between two operands of 
any data type. A itmbit result is returned 77 aClidla if the 
condition is truer a(1)02 if the condition is false. 


If both operands are fixed» the operator does a true signed 
compare. If both operands are character strings» the shorter one 
is padded on the right with blanks» and a character by character 
magnitude compare by collating sequence is done» 


For atl other operand combinations» teading zerces are supplied 
to the shorter of the two. No sign analysis is donee and 
operands are treated as positive magnitudes. 


The Legical operators perform a bit by bit analysis on all three 
data typese NUT is considered to be a unary operators» and may 
appear to the right of any other operator Cincluding itself). 


The other operators require two operands» The shorter of the two 
is padded on the left with zeroes to duplicate the length of the 
larger. The following chart illustrates the use of each 
operator. 


IF X = 0 0 1 L 
IF Y = ) 1 6 1 
NOT X = 1 1 0 9 
NOT Y = 1 4 1 is) 
X AND Y¥ = ) 0 0 L 
X OR Y = G L L 1 


X EXOR Y = 0 i 1 ) 
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<ASSIGNMENT STATEMENT> 222 <ADDRESS VARIBLE> 
<REPLACE> 
<EXPRESSLION> 
€REPLACE> 33= e= 
“<ASSIGNOR> ss <ANDRESS VARTABLE> 
<NON“DESTRUCTIVE REPLACE> 
<EXPRESSION> 
<NON=DESTRUCTIVE | 
REPLACE> :3= <REPLACE» DELETE LEFT PART> 


1 <REPLACE» DELETE RIGHT FART> 


<REPLACE> DELETE 
LEFT PART> t:= := 


<REPLACEs» DELETE 
RIGHT PART> s::= $3= 


NOTE: <REPLACE» DELETE RIGHT PART> symbol "::=" is the same 
as the BNF definition symbol. 


There are two basic types of replace operators: The destructive 
<REPLACC> associated with the <ASSIGNMNENT STATEMENT>» and the 
<NON“CDESTRUCTIVE REPLACE> which occurs only within an expression. 


The destructive <REPLACE> operator causes the expression = on its 
right to "“REPLACE™* the variabte on its left. The Evatuatioan 
Stack is flushed since this replace is necessarily the tast 
operation in the statement. 


The <NON“OESTRUCTIVE REPLACE> takes two forms: "DELETE LEFT" and 
"DELETE RIGHT". The "DELETE LEFT" causes the expression to the 
right of the operator to replace the variatie on its teft. The 
variable is then deleted from the top of the Evatuation Stack» 
and the expression is Left on the top of the stack. 


The “DELETE RIGHT" causes the same replacement. Howevere the 
expression to the right of the operator is deleted from the 
Evaluation Stack» and the variable to the left remains on the top 
of the stacke 


7-9 


BURROUGHS CORPORATION COYPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B18900/B17C00 SOL CBNF Version) CF) 
SANTA BARBARA PLANT PeSe 2212 5405 


The following example illustrates the use of the <NON@“DESTRUCTIVE 
REPLACE>: 


PROCEDURE GOOD BIT VARYING; 
DECLARE X BIT(48)s 
RETURN X ss= "RESULT"; 

END GOOD; 


PROCEOURE BAD BIT VARYING; 
DECLARE y BITC48)3 
RETURN Y s= "RESULT"; 


END BADS 


PROCEOURE GOOD will execute propertly since X» declared as bits is 


associated with the procedure typerrbkit varying. Notice,» 
however» that in PROCEDURE BAD» Y is deteted from the stack and 
the character string “RESULT” remains. Unless the control card 


option FORMALeCHECK is set at compile timer there will be no 
indication that the data types Cas in PROCEDURE BAD) do not match 
the procedure type. If FORMAL.CHECK is specified» the following 
execute time error message will be printed: 


"TYPE ERROR IN RETURNED VALUE" 


If both operands associated with any replace operator are 
character fields» and the receiving field is tonger than the 
sendiny field» trailing blanks will be added. If the receiving 
field is shorter» characters will be truncated from the right. 


With every other combination of data types» when the receiving 
field is not equal in length to the sending fields leading binary 
zeroes will be appended to the tlarger receiving field» or 
highworder bits are truncated fron the larger sending field. 


Inconsistant results may be obtained in cases Such as 


S=SUBSTR CAxr2»5) 


Cje@er» where the sending fiatd and the receiving field are simple 
primaries less than 24 bits apart). This problem can be avoided 
by enclosing the SUBSTR in parenthesese 


4s= CSUBSTRC4+2+5) dz 
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4tso see the reverse store operation in the section entitled 
WEXE CUTE “FUNCTION STATEMENT™, 
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Data items may be tinked together (concatenated) by using the 


"CAT" operatore Although this operator is intended to 
concatenate bit strings or character strings» it may te used witn 
any combination of data typese The result of any concatenation 


may not be greater than 8»191 characters or 65535 bits. 


If all the operands are character strings» the result is a 
character string. For any other combination of data types» the 
result is a bit stringe For example: 


LET 4 = "g" L CHARACTER 
B = 9€1)101a 3 BITS 
C = 13 FIXED 
THEN 
B CAT B = aC1)L101LILA BIT STRINGe LENGTH 4 
4 CaT A = "6B" CHARACTER STRINGs LENGTH 2 
A CAT 8 = aC1LIL1LOIIVIVII1a BIT STRING» LENGTH 11 
B CAT C = 3039500090001 2a BIT STRINGe LENGTH 27 


CEXPRESSED IN OCTAL) 
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PRIWARY ELEMENTS QF THE EXPRESSION 


€PRIMARY> ss <CONSTANT> 

<VARTASBLE> 
C<EXPRESSION>) 
<CONDITIONAL EXPRESSION> 
<CASE EXPRESSION? 
<BUMPOR> 

<DETREMENTOR> 

<ASSIGNOR> 


“<VARTASLE> ii <ADDRESS VARTABLE> 
! <VALUE VARTASLE> 


A primary is the most basic component of the SOL expressione To 
avoid unnecessary repetitions see “"BASTC COMPONENTS OF THE SDL 
LANGUAGE* for discussion of carstants» and see “ADDRESS 


VARIASLES”" and "VALUE VARIABLES” for discussion of variables. 


<CONDITIGNAL EXPRESSION> s:= IF <EXPRESSTON> 


THEN <EXPRESSION> 
ELSE <EXPRESSIOQN> 


The expression following the reservea woro "IF" is evaluated. I f 
the tlowrorder bit of the result 1s 1,» tne expression following 
"THEN® is evaluated. Otherwise»s the expression following "ELSE" 
is evaluated. Unlike the <IF STATEMENT>» the "ELSE" part of the 
expression must be presente 
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CASE EXPRESSICN 


<CASE EXPRESSION> 3:= CASE. <EXPRESSION> 
OF <EXPRESSIONLIST>) 


<EXPRESSTION LIST> ss <EXPRESSIOGN> 
| <EXPRESSION>» 


<EXPRESSION LIST> 


In the <CASE EXPRESSION>» the value of the <EXPRESSION> following 
the reserved word “CASE" is used as an index into the list of 
expressions. The expression thus selected ts evaluated» and the 
other expressions in the list tqnored. The range of the index is 
from zero to Nw1ls» where N is the number of <EXPRESSTION>s in the 
List» An example of an <ASSIGNMENT STATEMENT> containing a <CASE 
EXPRESSTUN> follows: 


OF CAt#Bs, AWBse Ax Be ASB» A MOD B) + 
0 


I 
J OF CQsFe65 9e 3448» (A+3) MOD Be C) 


1f [=2 and J=3,» the statement witl be evaluated as follows: 


As=(A*3) + CAt#3B) HOD Bs 


3UMP 
<BUMPOR> 3:= BUMP <ADDRESS VARIASLE> 
<MODIFTER> 
<MODIFIER> 23 C<EMPTY> 
1 8y <EXPRESSTON> 
BUMPOR Leaves on the Evaluation Stack»e a descrirtor of the 


variable which has been incremented by the value of the modifying 
KEXPRESSION>. If <MCOIFIER> jis <EMPTY>» then the variable is 
incremented by tl1-e The results of the following expressions 
(where 4A is an <ARRAY I[DENTIFIER>) are equivalent: 


BUMP ACX+Y) By N 
ACX#Y¥) 32= ACX+#Y) + N 
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The advantage of using <BUHPOGR> is that the code for putting the 


descriptor on the stack is executed onty once. Thus it ts more 
efficient. 


Like any variable» (C<BUMPOR>) will cause a value to be toaded to 
the top of the stack. Hence; 
PCBUMP X BY C~-0);3 
passes X by address but» 
PCCBUMP X BY C=-D))> 
passes X by value. 
<BUMPOQR> operates on att three data typese Character strings are 
treated as if they were bit stringse For fields greater than 24 


bitse oanty the lowrtorder 24 bits are evaluated. If the field is 
less than 24 bits» it is padded with leading zeroes to 24 oits. 
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CECRoPENT 

<CECREMENTOR> 22= DECREMENT <ADDRESS WARIABLE> 


<MOO01F TER> 
<MODIFIER> ss= <EMPTY> 
1 BY <EXPRESSIOQN> 


The <CECREMENTOR> works exactly Like <BUMPOR> except that the 
variable is decreased by the value of the <EXPRESSIOQN>. See 
abovee 


CASSTIGNOR> is= See REPLACE OPERATORS tn Chapter 7. 
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<ADDRESS VARI ASLE> 3: <SIMPLE VARIASLE> 
1 <SUBSCRIPTED VARTABLE> 
t <INDEXED VARTASLE> 
1 <ADDRESS“GENERATING FUNCTION DESIGNATOR> 


<SIMPLE VARTIAPLE> 33= <SIMPLE IDENTIFIER> 

<SIMPLE [DENTIFIER> ::= <IDENTIFIER> 

<SUBSCRIPTED VARIABLE> 335 <ARRAY IDENTIF TER>CKEXPRESSION>) 
ARRAY IDENTIFIER> 55 <IDENTIFTER> 


As noted above» <ADDRESS VARJASLE>s may take the form of a 
<SIMPLE I[DENTIFIER>> or an “ARRAY IDENTIFIER> followed by an 
C<EXPRESSION>) designating the array element in question. In 
addition» simple and array identifiers may be indexed. . 


INQE XING 

<INDEXED VARIABLE> ::= <SIMPLE IDENTIFIER> <INDEX PART> 
1 <ARRAY IDENTIFIER> <INDEX PART> 

<INDEX PART> 2:2 C<EXPRESSION LIST>] 


Each of the expressions in the <INDEX PART> is evaluated» and the 
sum of these is formed. This will be called the index. 


The indexing operation occurs functionally as fottlows? 
1. The simple or array descriptor is loaded to the. top 
of the Evaluatton Stack. 
2s If the descriptor is an array descriptor» then it is 
converted to a simple descriptor which describes the 


first Czero) element of the array. 


36 The address field of the descriptor is modified by 
adding to it the index. 


876 
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Note that selfwrelative data items Cieee» data items whose length 
is not greater than 24.5 which are not in a structure» and which 


do not remap some other data item) may not be indexed. 


There are two methods of indexing: 


le The descriptor provides the addressre and the 
orovides the offset from this address. 


2s The descriptor erovides the offset» and the 
provides the addresse 


Example: 


: N SITS 2.3 BITS: & 2% Ss 
fwwaeCree-><N-><E => 
Cow ew oe ew Qo: a ee > 


¢= Sm BMRB SCE SOesw Bes Be BD am 4=- RRM BeBe ee Bes Ss aoaa> 


Field D may be accessed using either method (1) or method 
Assume N contains the offset to 8B. 


Method (1): 


DECLARE 
SL A BITC5009 )» 
C2 3B» 
93 C BITC5S)» 
03 OO BITC2)» 
03 E BITC3)» 
N BITC24)> 
X BITC2)3 
/* THE NEXT STATEMENT WILL MOVE O CWITH THE OFFSET 
GIVEN EY N) INTO X */ 
X 1 OCNY; 


index 


index 
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Method (2): 


DECLARE 
A BIT(5990)-, 


BB REMAPS BASE» 
92 CC BITC5)>» 
92 ODD BITC2)» 
Q2 EE BITC3)» 


N BITC(24)> 
X BITC2)3 


“7* THE NEXT STATEMENT WILL MOVE DO 


x 4 


CWITH THE OFFSET GIVEN BY N) INTO X #/ 
DOCN» DATA_ADDRESSCA) I> 


Note the following: 


1. 


The structure abover coxprised of BE» CC» DD» and EE» 
which remaps base is called a “template”. 


This template may be applied to any data area merely 
by providing the address as part of the index. This 
is not the case when methodC(l) indexing is used. 


The example above is contrived ""in method €2)»5» aif N 
contained the address of B rather than the offset to 
8 from the beginning of A» then the statements which 
store D into X would be identical: xX 1 DDOCN]; 
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ADDRESS GENERATING FUNCTIONS 


<ADDRESS@“GENERATING 
FUNCTION DESIGNATOR> s3= <SUB-STRING ADDRESS DESIGNATOR> 

1 <FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATOR> 
<DESCRIPTOR DESIGNATOR> 
<DESCRIPTOR“GENERATOR DESTIENATOR> 
CADDRESS“MODIFIER DESIGNATOR> 
NULL 


SUBBIT AND SUSSTR 


<SUB“STRING ADDRESS 

GESIGNATGR> 3:3:= <SUB“STRING FUNCTION IDENTIFIER> 
C<STRING ADDRESS>, <OFF SET PART>) 

1 <SUB@=STRING FUNCTION [GENTIFIER> 
C<STRING ADDRESS>» <OFF SET PART>>» 
<LENGTH PART>) 


<SUB“STRING FUNCTION 


ICENTIFIER> 3:= SUBBIT ! SUaSTR 

<STRING ADURESS> ss= <ADDRESS GENERATOR> 
<ADDRESS GENERATOR> 23= SEE "ADDRESS GENERATOR" 
<OFF SET PART> 335 <EXPRESSION> 

<LENGTH PART> 23 <EXPRESSION> 


SUBSTR ytelds a substring of a character string identified by 
the <STRING ADDRESS>. The beginning character of the substring 
is specified by the “OFFSET PART> Cwhere the first character of 
the string is zera)e The <LENGTH PART> specifies the tlength of 
the substring. If omittede the rest of the string from the 
“OFFSET” character is assumede For exameles 


If K = "CHARACTER* 
C = "*"COALITIOGN™ 
then 


SUBSTROX*e4) 2= SUBSTRCC»Gr4) 
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yields the character string: 


"CHARCOAL * 


Like att character"totcharacter store operationses if the 
receiving field is larger than the sending field» the sending 
field is padded with blanks on the right. If the sending field 
is tlonger» characters are truncated from the right. Note that 
this is a function of the store operator and not substr. 


SUBBIT yields a substring of a bit string identified by the 
<STRING ADDRESS>. The beginning bit of the Substring ts 
specified by the <OFFSET PART> CNote; The first bit of the 
string is @). The length of the subtstring is specified by the 


<LENGTH PART> whiche if omitted» will be assumed to be the rest 
of the stringe 


EXAMPLE: 


If 2€1)0010191101a 


S(LIDOCOILILIGILa 


Co > 


then 

SUBBITCA»253) CAT SUBBIT(3-5) 
results in: 

aCL)L1OL11191a 
and 

SUBBITC 423) CAT SUBBITCB+)0>6) 
results in: = 


9(€1)0101191L0000112 


8-1 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B81@90/B1700 SOL CBNF Version) CF) 
SANTA BARBARA PLANT P.eSe 2212 5405 


a 
eS ED baa ED SD a ae a> OOD came aa ED Ee ae ee SO ee 


<FETCH COMMUNICATE MESSAGE 
POINTER DESIGNATUR> 232= FETCH _COMMUNICATE_MSG_PIR 


See the 31709 MCP Reference Manual for a description of the run 
structuree 


If the RS_MCP_8IT is set» then RS_COMMUNICATE_4SG_PTR is 
accessede Otherwisep KS_REINSTATE_MSG_PTR is accessed» The 
accessed field 1s assumed to be a descriptor and is placed on the 
top of the Evatuation Stack. 


EXAMPLE: 


DESCRIPTORCCOMM_ MSG) c= 
VALUE.DESCRIPTORCFETCH COMMUNICATE _MSG_PTR); 


COMM_MSG now describes the communicate message» assuming that the 
message was described by a nonwselftretative dcescrirtore 


TESCRIPTORS 


<CESCRIPTOR DESIGNATOR>::= DESCRIPTOR C<SIMPLE IDENTIFIER>) 
1 DESCRIPTOR C<ARRAY IDENTIFTIER>) 


"DESCRIPTOR”™ places on the Evaluation Stack» a descriptor which 
describes the descriptor of a <SIMPLE IDENTIFIER> or an <ARRAY 
IDENTIFIER>. The descriptor functicn may appear as the object of 
a replacement» thereby providing easy access to any part of a 
descriptor. 


EXAMPLE: 


le SUBBITCDESCRIPTORCX)»402) c= 23 


Ze DESCRIPTORCX) == DESCRIPTORCY)s 


B-il 


BURROUGHS COR FORATION COMPANY CONF IDENTI AL 
COMPUTER SYSTEMS GROUP B18d0/B17090 SDL CPENF Version) (CF) 
SANTA BARBARA PLANT P.S. 2212 5495 


Example (2) forces both X and Y to describe the same 
data name. Note» however» that tf X and Y are not 


either both simple items or both arrays» the result 
will be incorrecte 


MAKE DESCRIPTOR 


<CESCRIPTOR“GENERATOR 
DESIGNATOR> 3 3= MAKE DESCRIPTORC <EXPRESSION>) 


The value which is generated by the <EXPKRESSION> is assumed to be 
a descriptor. This descriptor replaces on the Evaluation Stack» 
the aescriptor representing that <EXPRESSTUN>. If the namervalue 
bit of the expression's descriptor on the Evatuation Stack is 
set» then the vatue of the <EXPRESSION> is removed from the Value 
Stack e 


A <DESCRIPTOR GENERATOR DESIGNATOR> may appear as the object of a 
repiacement however the programmer is responsible to see that 
the descriptor built generates an address. There 1s no syntax 
check for thise 


The following examples illustrate the relationshirs between the 
descriptor functions: 


DESCRIPTORCXI=VALUE_DESCRIPTORCX)> 
where X is nonstselferelative 


MAKE DESCRIPTOR COESCRIPTORCX)) = Xp 
where X is nontselftrelative 


MAKE DESCRIPTOR CVALUE _ DESCRIPTORCE)) = Ep 
where E is an <ADORESS GENCRATOR> 


VALUE _ DESCRIPTOR CMAKE_DESCRIPTORCE)) = E>» 
where the value of E ts a vatid <ADDRESS GENERATOR> 
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NEXT_ITEM>+ PREVIOUS ITEM 


<ADDRESS“MODIFIER 
CESIGNATOR> 3: 3= <ADDRESS@-MODIFIER FUNCTION IDENTIF IER> 
C<SIMPLE IDENTIFIER>) 


<ADDRESS“MODIFIER 
FUNCTION IDENTIFIER> :s= NEXT_ITEM 
1 PREVIGUS_ITEM 


The NEXT_ITEM function causes the tength field of the descriptor 
represented by the <SI#PLE [DENTIFIER> to be added to the address 
field of that descriptor. This modifted descriptor is put back 
onto the Name Stacker and also moved to the top of the Evaluation 
Stacke Moving the modified descriptor to the Evaluation Stack 
1Sp in effect» a load address of the new item descrited by the 
<SIMPLE TDENTIFIER>. Hences “"NEXT_ITEM"™ may be used as the 
otject of a replacemente For example» the foitlawing statements: 


DECLARE GL CHAR _STRING CHARACTERCLO00)» 
O02 NEXT_CHAR CHARACTER (C1); 
NEXT_ITEM CNEXT.CHARD I "D", 


have the effect of storing "0" «into the second character of 
CHAR_STRING» which is: 


SUBSTRCCHAR_STRINGs1>1);3 


The PREVIOUS_ITEM function is identical to NEXT_ITEM except that 
a subtraction Cof Length from address) is performed. 


NULL 


This function generates an address of type character with zero 
length. A store into this address ts essentially a nomop. NULL 
is used primarily in conjunction with the REFER statement. 
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ACORESS GENERATORS 


<ADDRESS 
GENERATOR LIST> 3s <ADDRESS GENER 4ATOR> 

1 <ADDRESS GENERATOR>>» 

<ADDRESS GENERATOR LIST> 

C<ADDRESS GENERATOR> 32 “ADDRESS VARIABLE> 

1 <BUMPOR> 

{ <DECREMENTOR> 

{ <CONDITIOQNAL ADDRESS GENERATOR> 

{ <CASE ADDRESS GENERATOR> 

{ <ADDRESS*GENERATING ASSIGNOR> 
<BUMPOR> si= See “BUMPDR™ 
<DECREMENTOR> i3:= See *"DECREMENTOR"” 


<CONOITIONAL 4DDRESS 

GENE RATOR> sss IF <EXPRESSION> 
THEN <ADDRESS GENERATOR> 
ELSE <ADDRESS GENERATOR> 


<CASE ADDRESS 
GENE RKATOR> 222 CASE <EXPRESSION> 


OF €<ADDRESS GENERATOR LIST>) 


<ADDRESS“GENERATING 
ASSIGNOR> :3:= <ADDRESS VARIABLE> 
<REPLACE» OELETE LEFT PART> 
<A4DDRESS GENERATOR > 
1 <ADDRESS VARTASLE> 
<REPLACE» DELETE RIGHT PART> 
CEXPRESSION> 


The <ADDRESS GENERATOR> includes any primary which Leaves an 
address on the top of the Evaluation Stack. See "PRIMARY 
ELEMENTS OF THE EXPRESSIUN” for more explicit detail. 
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<VALUE VARTABLE> 


<FILE DESIGNATOR> is 


<TYPED PROCEDURE 
DESIGNATOR> ::= 


<TYPED PROCEDURE 
ICENTIF TER> 


<A4CTUAL PARAMETER PART> 


<4CTUAL PARAMETER LIST> 


ACTUAL PARAHETER> i: 


<ARRAY DESIGNATOR> 25 


<CARRAY IDENTIFIER> ss 
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<VALUE"GENERATING FUNCTION DESIGNATOR> 
<TYPED PROCEDURE DESIGNATOR> 

C<ADDRESS VARIABLE>) 

<FILE DESIGNATOR > 


<FILE IOENTIFIER> . 
SWITCH FILE IDENTIFIER>C <EXPRESSION>) 


<TYPED PROCEDURE [DENTIFIER> 
<ACTUAL PRAMETER PART> 


<IDENTIFIER> 


<EMPTY> 
C<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER> 
<ACTUAL PARAMETER>> 
<ACTUAL PARAMETER LIST> 


<EXPRESSION> 
<ARRAY DESIGNATOR> 


<ARRAY LDENTIFIE2> 


<IGENTIFITER> 


Notice from the above syntax that any <ADDRESS VARTABLE> enclosed 


in parens» 
variatle. 


The vatue 
the specified file. 
<FILE CESIGNATOR> 
statement. 


is 


such as (SUBBIT CAeTrJ))> 


generated vy a “<FILE DESIGNATOR> 
A warning message will 
used 


will be treatea as a value 


is the FPB number of 
be issued when a 
jeep not in an I[/9 


as aevalue»r 


8-15 


BURRGUGHS CORPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEAS GROUP 81890781700 SOL (BNF Version) CF) 
SANTA BARSARA PLANT PeSe 2212 5495 


TYPED PROCEOQURES 


The TYPED procedure (Ca procedure which returns ae vatue) is 
invoked within an expression according to the above syntaxe The 
procedure identifier» followed by its parameters Cif any)» 
enclosed within parens»e is treated as an operand in the 
expressions For details on passing parameters» see ADDRESS AND 
VALUE PARAMETERS. The procedure is evaluated and the returned 
value replaces the <TYPED PROCEDURE DESIGNATOR>.~ For example: 


DECLARE Z FIXED, 

PROCEDURE XC 48) F IXEDS 
FORMAL CA»+8) FIXED; 

END X> 

Z := XC(BUMP MeR) +15 


Actual parameters may be passed to a procedure either by address 
(which passes the address of the actual parameter) or by vatue 
(which passes a duplicate copy of the actual parameter). 


If an <ACTUAL P AR AME TER > (See VALUE VARIABLES ana 
EXECUTE*PROCE CURE STATEMENT) is passed ty address» then any 
change to the corresponding <FURMAL PARAMETER> in the procedure 
will result in a change to the original value of the <ACTUAL 
PARAMETER>. 


If a parameter is passed by value» then only the duplicate copy 
of the <ACTUAL PARAMETER> can be changed. The original value 
remains unaltered» and the duplicate copy is erased when the 
procedure is exited. 


An <ACTUAL PARAMETER> may be any expression or an <ARRAY 
{CENTIF TER>. SDL has specified that array identifiers may onty 
be passed by address. An array elements» however» may be passed 
etther by address or by value. 
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Expressions may be divided into two groups? 


l. Those which may be passea either by address or Cy 
value» and 


Ze Those which may only be passed by value. 


An <A4DDRESS GENERATOR> is passed by address unless it is enclosed 
within parentheses» or untess the formal parameter to which it 
corresponds has been declared as FORMAL VALUE. In these two 
cases <ADDRESS GENERATUGR>s witl be loaded by vatue. Atl other 
expressions are toaded by value only. 


Exampies of parameters passed by address: 


PCBUMP X» A) 
PCECBUMP M)» SUBBIT(CX>5)) 
PCNEXT_ITEMCB)» AsICeD) 


Examples of parameters passed Ly value: 


PCCBUMP XX)» CA)> 3) 
PC CEC3UMP M))» AtB) 


PCSWAPC As)» CSUBSTRCA2523))) 


VALUE GENERATING FUNCTIONS 


<VALUE ~GENE RATING 

FUNCTION DESIGNATOR> ::= <BASE REGISTER DESIGNATOR> 
<BINARY CONVERSION DESIGNATOR> 
<BINARY_SEARCH DESIGNATOR> 
<COMMUNICATE WITH GISMO FUNCTION> 
<CONSOLE SWITCHES CESIGNATOR> 
<CONTROL STACK SITS DESIGNATOR> 
<CONTROL STACK TOP DESIGNATOR> 
<CONVERT DESIGNATUR> 

<DATA ADDRESS DESIGNATOR> 
<OATA_LENGTH DESIGNATOR> 
<DATA_TYPE JESIGNATOR> 

<DATE FUNCTION DESIGNATOR> 
<DECIMAL CONVERSION DESIGNATOR> 
<DELINITED TONEN OESIGNATOR> 
<DISPATCH DESIGNATOR> 


am es wm om «ae a Oe ee ee ee le oe ee 
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<NISPLAY BASE DESIGNATOR> 
<DYNAMIC MEMORY BASE DESIGNATOR> 
<EVALUATION STACK TOP DOESIGNATOR> 
<EXECUTE OPERATOR FUNCTION> 
<EXTENCED ARITHMETIC FUNCTION> 
<HASH CODE DESIGNATOR> 
SCINTERRUGATE INTERRUPT STATUS DESIGNATOR> 
<LAST LIO STATUS DESIGNATOR> 
<LENGTH DESIGNATOR> 

<LIMIT REGISTER DESIGNATOR> 
<LOCATION DESIGNATOR> 
<NAME“OF*DOAY FUNCTION DESIGNATOR> 
<NAME STACK TOP DESIGNATOR> 

“NEXT TOKEN DESIGNATOR> 

<P4RITY_ ADDRESS OCESIGNATOR> 
<PROCESSOR_TIME FUNCTICN DESIGNATOR> 
<PROGRAM_SHTICHES GESTGNATOR> 
<SEARCH LINKED_LIST DESIGNATOR> 
SEARCH SDL _ STACKS DESTIGNATUR> 
SEARCH SERTAL LIST DESIGNATOR> 
<MEMORY SIZE DESIGNATOR> 

<SORT_ SEARCH DESIGNATOR> 
<SORT_STEP_DOWN DESIGNATOR> 
<SORT_UNBLOTK DESIENATOR> 

<SPQ INPUT PRESENT DESIGNATGR> 
“<SUB_STRING VALUE DESIGNATOR> 
<SWAP DESIGNATOR> 

<TIME FUNCTION DESIGNATOR> 

<TIMER DESIGNATOR> 

<DESCRIPTOR VALUE_GENERATOR OESIGNATOR> 
<WATT FUNCTION> 


ua wh ae a ib ab ob a A oh oo ee oe ele ee ee el ee ee oo 


<BASE KEGISTER 


DEST ENATOR> BASC_LREGISTER 


4 value of type BIT(24) is returned. The value is the absolute 
address of the base of the froyrame It should be noted that two 
separate executions of BASE REGISTER may not yield the same 
results» since the MCP may have moved the program in memorye 
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<BINARY CONVERSION 
DESIGNATOR> ::= BINARY C<EXPRESSION>) 


The <BINARY CONVERSION DESIGNATOR> returns a ft.xed value which is 
the binary representation of the <EXPRESSION>.} The <EXPRESSION> 
is assumed to be a character string containing decimal digits. 
Only the lowrorder 8&8 characters will tbe convertea. Zone bits are 
ignored. 


If the conversion results in a binary value greater than 24 bits 
Ciele» if the decimal number ts greater than 16»°777»215), then 
the left~most bits will be truncated. 


If the decimal number is greater than 8»386»607 Ci.aee» (2 exp 
235)"1)> then the returned value will apnear to be negative (Ciseee 
the highworder bit is 1). 


BINARY SEARCH 


<BINARY_SEARCH FUNCTION>::= dINaARY_SEARCH 
C<START_RECORD>» <COMPARE_FIELD>» 
<COMPARE_VALUE>» <NUMBER_OF_RECORDS>) 


<START_RECURD>: t= <EXPRESSION> 
<COMPARE_FIELD>::= : <TEMPLATE> 
<COMPARE_VALUE>33= <EXPRESSION> 
<NUMBER_OF_RECORDS>::= “ADDRESS GENERATOR> 


BINARY _SEARCH searches an ordered List of items that start at 
CSTART_RECOGRD> for <NUMBER_OF_RECOROS> for a matche 


The occurrence number of the entry that matches will be returned» 
or if there is no match» the cccurrence number of the first entry 
that is greater wittl be returned. 


Notes: The comparison 1s always left justified and uses the 
Length of <COMP4RE VALUE>. 
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<COMNUNICATE WITH GISMO 
FUNC TION> 3s= COMMUNICATE WITH_GISMG C<EXPRESSIGN>) 


The value of the operand is made nonwseiftrelative ty pushing its 
value to the Value Stacks» if necessary. The atsolute address of 
the value is copied into the Trtregister» and the length is copied 
into the L=register. The proper swapper value is put into the 
Xe-register and control is passed to GISMG. Any value returned by 
GISNO will be described by the same descriptor on the Evaluation 
Stack as was used to pass a value to GISMO. 


COMMUNICATE _WITH_GISMHO may be used either as a statement or as a 
function. 


CONSOLE SAITICHES 


<CONSOLE SWITCHES 
DESTGNATUR> 235 CONSOLE SWITCHES 


Note: This function has meaning only El729"series systems. 
It leaves on the top of the Evaluation Stack a 
24-bit» self-relative value of the 24 console 
Switches. 


<CONTROL STACK 
BITS DESIGNATCR>: := CONTROL_STACK_8ITS 


This function teaves on the too of the Evaluation Stack a 24-bit» 
selfv~retative value of type bit which is the number of tits left 


in the control stack until overflow. 


CONTROL STACK TOP 


<CONTROL STACK TOP 
DESIGNATOR> ¢:= CONTROL_STACK_TOP 
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A value of type BITC24) is returned. The value is the base 
relative address of the next entry to be placed on the _ control 
stack. 


<CONVERSIOW DESTGNATOR> s:= CONVERT C<KEXPRESSION>>» 
<CONVERSION PART>) 
1 CONV CCEXPRESSION>» 
<CONVERSION PART>) 


<CONVERSION PART> 3:s= <CONVERSIUN TyYPE> 
{ <CONVERSION TYPE>» 
<8IT GROUP SIZE> 
CCONVERSLON TYPE> 33 BIT € CHARACTER 1 FIXED 


<BIT GROUP SIZe> 3: 


tl 
~ 
cad 
MN 
— 
WG 
_ 


The <«<EXPRESSTION>>» which may be of any data typer will te 
converted as specified by the <CONVERSION TYPE>. The converted 
<EXPRESSION> will be returned as a vatuee 


The <B8IT GROUP SIZE> is used onty with bit-to-character or 
character“tombit conversionse It specifies the number of bits 


Cof the obit string) which correspond to acharacter in the 
character stringe 


Notes Bittotcharacter conversion does not yteld decimal 
digits. If a bit string itis to be converted to 
decimal digits» it should be stored in ae fixed 
variables» and the fixed variable converted. 


GURRGUGHS CORFORATION 
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The following table shows the possible conversion 
combinations? 
OUTPUT: BIT CHARACTER FIXED 
INPUT: Rkkktkhkkkkkk kk kk kk kk hkkkk keke kkk kh hkkkkkke kk kk kakkkkkk kk kkk 
* * Convert to CHAR. * Return 24 BITS « 
BIT * No change * under control of * providing lead@ * 
* * <BIT GROUP SIZE>s* inq zeroes or * 
* * if omitted use 4 * Left truncations* 
od * *# as necessary. * 
RKEKKKKKhKKkKKkK KK eA KEE KEM EKER aEK Kae Kee aKa KK keke KREKKE KKK KKK keke KEK KE KKK 
Re kK KKKKKK KK KKK KKK KKK KKK KK KKK KKR KKK KK KEK KEKE KEKE KKE KK KK & 
*« Convert to bits «* al * 
CHARAC= * under control of* No change * See Note. x 
TER * BIT GROUP SIZE>; * * 
* if omitted use 4* & sd 
Ree KK kE KK RE KK EK KEK KK Khe Kee kK RRR Rae KReE Kea KK KE KER KEE Kee K KE HRKaE KEKE KEK 
Reka RE RK KK Ke kK Kk Kea Kaha eK KEK EK EKKEKEKE Kae KKK ke REKEEKEK KE Kae KEK EK EK 
i * Decimai conver~ *& & 
* Change type *« sion w/ leading * « 
FIXED * to BIT * zeros & sign not * No change * 
* * suppressed. (7 * * 
* * digits + SIGN). * * 
Bk&k&k kk kk ke keKE Rae Kae Kae Kea Kh K eK Kaha Rae Keke keke KK Keke RE KAKA KK Kae KK Keke Kk kek EK kK 
Note: The character string may have leading tlanks, sign 
(or none)» more blanks» and decimal digits. A plus 
sign is ignored. The decimal digits Conly the 
iowstorder 7) are converted to a binary number that is 
rightrtjustified in a 24-bit field. If the siqn was 
minus» then the 2's comclement of the 24°bit fietd is 
returned. 
EXAMPLES? 
CONVERT C™"72581",F TXED) returns “72581 
CONVERT €23C3)7529 eCHARACTERs 4) LEA 
CONVERT CaCLILIDLLaA-FIXED) 27 
CONVERT C™L327>°31T»2) a€2)132a 
CONVERT ("1327+ G1T>»4) 2€4)132a 
CONVERT C"2"-dIT) a€4)22 


8-22 


BURROUGHS CORFGOGRATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP BL80C/B1700 SOL CBNF Version) (CF) 
SANTA BARBARA PLANT PeSe 2212 5495 


<CATA ADDRESS 


DESIGNATOR> 33= DATA_ADDRESS C<KADDRESS GENERATOR>) 


<ADDRESS GENERATOR> ss= See ADDRESS GENERATORS 


The <C4TA ADDRESS DESIGNATOR> returns a value of type BbITC24) 
which is the hbase relative address generated by the <ADDRESS 
GENE RATOR>. 


<DATA_LENGTH DESTGNATOR>::s= DATA_LEAGTH C<EXPRESSION>) 


Returns the Length in bits of <EXPRESSION>>» regardless of the 
data type. 


<CATA_LTYPE DESIGNATOR>: c= DATA_TYPE CCKEXPRESSION>) 


Returns the type bits of <EXPRESSTION>. 


GATE 
<DATE FUNCTION 
DESIGNATUR> 3: 3= DATE 
1 DATE CKOATE FORMAT>» <REPRESENTATION>) 
<DATE FORMAT> i:= JULIAN € HONTH 1 Dav I YEAR 
<REPRESENTATION> 325 BIT ! DIGIT 1 CHARACTER 


The <ODATE FUNCTION DESIGNATOR> returns a bit or character string 
which is the date of the execution of the function. 
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DATE and DATE CMONTH»CHARACTER) are equivatent. 


The formats Cin bits) of the returned strings are: 


BIT DIGIT CHARACTER 
JULIAN CYYDOD) 7+9=16 8+12=29 16+24=49 
MONTH CMMODDYY) 4¢+¢5+7=16 |. 8+8+8=24 16+16+L6=48 
DAY CODMMYY) 5+4+7=16 BtB+h=24 16+16+16=48 
YEAR CYYMMDD) 7+44+5=16 B+6+G=24 16+16+16=48 


Examples DECLARE D CHARACTERC5S)>, 
D := DATE CJULIAN+ CHARACTER); 


<DEC IMAL CONVERSION 
CESIGNATOR> 3 := DECIMAL C<EXPRESSION>, 
<DECIMAL STRING SIZE>) 


<DEC IMAL STRING SIZE> ::= <EXPRESSION> 


The value of the first <EXPRESSION> following the reserved word 
DECIMAL is converted to a string of decizat characters. If the 


vaiue of the <EXPRESSION> generates more than 24 bits» then only 
the Lawvworder 24 bits are usede 


The number of characters returned is given by the value of the 
<DECIMAL STRING SIZE>.] ‘A maximum of 8 deciswal characters will be 
returned» even if the vatue of the <DECIMAL STRING SIZE> is 
greater. If the <DECIMAL STRING SIZE> is less than the number of 
decimat characters» then characters are truncated from the left. 


es ee 


<DELIMITED TOKEN 
DESTGNATCR>2s= DELIMITED_TOKEN CKFIRST CHARACTER>D, 
<DELIMITERS>» <RESULT>) 


<<FIRST CHARACTER> 32 C<ILOENTIFIER> 


<DELIMITERS>: 2= <CHARACTER STRING 
1 <BIT STRING> 
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<RESULT>33= <IDENTIFIER> 


The “FIRST CHARACTER> is a simpte identifier which describes the 
first character to be examined. <DELIMETERS> will generate 16 
bits of informations each of the 8-bit bytes being used as a 
delimiter. For SOL» <DELIAITERS> will be 42% =for COBOL» 

a7F 932 (CQuote followed by ETX). 


DELIMITED_TOKEN will leave on the top of the Evaluation Stack the 
descriptor of the string of characters from Cand including) 


<<FIRST CHARACTER> up to Cbhut not including) whichever delimiter 
was found. The descriptor cf <RESULT> will be replaced by this 
descriptor. The address field of <FIRST CHARACTER> will be 
changed to point to the delimiter which stopped the scan. 


QISPATCH 
<DISPATCH DESIGNATOR> 27= DISPATCHCCPORT» CHANNEL >» 
<1/0 DESCRIPTOR ADDRESS>) 
<PORT»CHANNEL> 222 cEXPRESSION> 


<I/G DESCRIPTCR 
ACDRESS> 3s: <EXPRESSION> 


The rightmost seven bits of the value of <PORT» CHANNEL> contain 
the foltowing information from Left to right: 


3 31TS 4& BITS 


> PORT =: CHANNEL 3 


meee en ees een Be SD Senda Se sansa 5 ad 


The rightmost 24 bdits of the vatue of the <I/Q0 DESCRIPTOR 
ADDRESS> is the absolute address of the [/0 descriptor. 


Using these two values» an I/0 operation is initiated. A bit 
value with the following meanings ts returned: 


G = DISPATCH REGISTER LOCK BIT SET 
1 = SUCCESSFUL OLSPATCH 
2 = SUCCESSFUL DISPATCH» BUT MISSINE DEVICE 
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DISPLAY BASE 


<DISPLAY SASE 
DESTIGNATOR> 3:= DISPLAY BASE 


This function tleaves on the top of the Evatuation Stack a 24~bit» 
selfrretative value of type bit which is the basetrelative 
address of the base of the Display Stack. 


<DYNAMIC MEMORY 
BASE DESIGNATGR> 3::= DYNAMIC_MEMORY_BASE 


The <CYNAMIC MEMORY BASE DESIGNATOR? returns a 24"bit value which 
1s the base relative address of the program's dynamic memory. 
Fefer to the SUL SeLanguage decumentation for discussion of the 
use of dynamic memorye 


EVALUATICAN STACK ToOP 


<EVALUATION STACK 
TOP DESTIGNATOR>s2= EVALUATION STACK_TOP 


This function leaves on the top of the Evaluation Stack a 24~bit» 
selfrrelative value of type bit which is the baserretlative 
address cf the top of the Evaluation Stack (before execution of 
this function). 


EXECUTE 


<EXZ CUTE OPERATOR 
FUNC TIOQN>3s= EXECUTE C<EXPRESSIGN LIST>) 


<EXPRESSTON LIST>::= <EXPRESSTON> 
1 <EXPRESSION LIST>» <EXPRESSION> 


Note: The EXECUTE function is intended only for use by 
Interpreter writers in the experimental design of new 
opcodes. 


8-26 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B18C9/31700 SOL CBNF Version) (F) 
SANTA BARBARA PLANT PeSe 2212 5495 


The value of the last expression may be expected to te an opcode 
which may then be executed by the interpreter. EXECUTE may be 
used as a statement as well as a <VALUE GENERATING FUNCTION 
CESIGNATOR>. 


This statement or <VALUE GENERATING FUNCTION DESIGNATOR> when 
used with released interpreters with resutt in aée=“"BRANCH TO 
INVALID GP COCE™ condition. 
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<EXTENDED ARITHMETIC 
FUNC TIOQN>3s= <EXTENDED ARITHMETIC FUNCTION DESTGNATOR> 
CKEXPRESSION>» <EXPRESSION>) 


<EXTENDED ARITHMETIC 
FUNCTION DESIGNATOR>: X_ADD § X_SUB | X_MUL 1 X_DIV 4 
1 X_NOOD 


N 


The indicated operation is performed on the two operands» which 
are treated as bit stringse The operation is performed on the 
full length of the operands» not just the towrorder 24 bits. The 
tength of the result is derived as described below: 


Addition (Subtraction): If the two operands are of different 
Lengths» then the shorter is padded on the left with binary 
zeroese The tength of the sum Cdifference) witl ce equal to the 
Length of the tonger of the two operands» The result will be itn 


two's complement notation. 


Multiclication: The length of the product will be the sum of the 


lengths of the two operands. CThis sum may not exceed 65535 
bits.) 
Division CAaodulo): The tength of the quotient Cresidue) will be 


tength of the dividend Cmodulus). 


For X_SUS»e X_DIV» and X_MOD» the second argument represents the 
subt rahends divisors» and modulus» respectively. 


HASH CODE 
€HASH CODE DESIGNATOR>s i= HASH_CODE C<TOKEN>) 
<TOKEN> 3s “EXPRESSION? 


The HASH.CODE wilt teave on the Evatuation Stack a descriptor of 
type BIT and length 24. The value will be computed from the 
characters of <TOKEN> and the Length of «TOKEN>. CIf <TOKEN> is 
Longer than 15 characters» onty the first 15 are considered.) 


To be effective» the value generated by HASH-CODE must be used 
modulo a prime number (Cwnich 1s then tne hash table size). 


8-28 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81800/817090 SOL CBNF Version) CF) 
SANTA BARBARA PLANT PeSe 2212 5405 


a Ee ED OR cee may cee SE ED AES ve Ell SOD GOES AED ED ED ED OP ES ee ED ae 


<INTERROGATE INTERRUPT 
STATUS DESIGNATOR> sss INTERROGATE_INTERRUPT_STATUS 


A 24~"bit data jtem of type bit is returned» The value represents 


the interrupt bits of the M-machine. The applicable M-machine 
interrupt bits are reset. Note that the INCN bits will not be 
reset. 


— aD ED Cet eee a ee a a) cae ae 


LAST LIQ STATUS 
DESIGNATGR>:s= LAST_LLIO_STATUS 


Returns the tast togical [70 status as type bit with a length of 
RS_LAST_LIO_STATUS_SIZE. : 


LENGTH 


<LENGTH DESIGNATOR> ::= LENGTH (<EXPRESSION>) 


The <LENGTH OESIGNATOR> returns a 24*bit»s type bit field 
containing the number of units in the <EXPRESSTON>. If the 
<EXPRESSIQN> is type character» then each cheracter 1s a unit. 
Otherwises each bit is a unit. 


<LIMIT RE 
DESIGNATO! 


LIMIT_REGISTER 


The <LIMIT REGISTER DESIGNATOR> returns a value of type 3IT(24) 
which is the tase relative address of the program"s Run Structure 
Nuct euse For further explanations please refer to the 81793) MCP 
Manual. 
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LOCATION 

<LUCATION DESIGNATOR> 325 LOCATION C<PROCEDURE IDENTIFIER>) 


1! LOCATION C<SIMPLE IDENTIFIER>) 
! LOCATION C<ARRAY IDENTIFIER>) 


<PROCEOURE IDENTIFIER> :t=  <IDENTIFIER> 
<SIMPLE [DENTIFIER>2:= cI DENTIFIER> 
<ARRAY IDENTIFIER>::= <ILDENTIFIER> 


For procedurese the <LOCATION DESTGNATOR> returns a 33-bit value 
(typed 31T) containing» from laft to right: 


ADDRESS TYPE,» CONTAINING #(€3)6a 4 BITS 
SEGMENT NUMBER 6 3ITS 
PAGE NUMBER o BITS 
DISPLACEMENT 20 BITS 


This 33~bit vatue is the address of the procedure in question. 


A forward declaration is required onty during recompilation or 
Create-Master for any procedure on which a location is performed. 
An error 15s given if this is not done . 


For simpte and array identifiers» the <LOCATION DESIGNATOR> 


returns a l6“bit vatue Ctyped BIT) containinge from teft to 
right: 
ADDRESS TYPE CONTAINING 92(2)90a 2 BITS 
LEXIC LEVEL 4 BITS 
UCCURRENCE NUMBER 10 BITS 
NAME_GF_OAY 


CNAME OF OAY FUNCTION 
R> ss= NAME_OF_ DAY 


A character string» which is the name of the day of the week» is 
returned as a 9=character string. The name tis left justified. 


Exampte: DECLARE DAY CHARACTER(C9)$ 
DAYINAME_OF_DAY 
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<NAMESTACK 
TOP DESTGNATOR> 


2s NAME_STACK_TOP 


This function leaves on the top of the Evaluation Stack a 24-bit» 
self-relative value of type bit which is the base-relative 
address of the top of the Name Stack 


NEXT_TOKEN 

<NEXT TOKEN DESIGNATOR>2:= NEXT_TOKEN (C<FIRST CHARACTER>> 
<SEPARATOR>» <NUMERIC“TOTALPHA INDICATOR>>» 
<RESULT> ) 

<FIRST CHARACTER> i:= <IDENTIFIER> 

<SEPARATOR> 335 <CHARACTER STRING> 

<NUMERIC“TO-ALPHA 7 

INDICATOR>: z= SET | RESET 


The <<FIRST CHARACTER> is a simple tdentifier which describes the 
first character to be examined» This witl usuatly be the first 
character of the token. The <SEPARATOR> is the token separator: 
"_" for SDL» “=-" for COBOL» etc. It must te a single character; 
if none is needed» use “A. <NUMERIC*“TO*ALPHA INDICATOR> 

is set if symbols such as 23548 are attlowed. It is * RESET 
otherwisee 


NEXT_TOKEN will teave on the top of the Evatuation Stack the 
descriptor of the next token. This token will be an identifier» 
a nunber» or a special character. The descriptor of <RESULT> 
wilt also ve repntiaced by this dascrifptor. The address field of 
<FIRST CHARACTER> wittl be changed to point to the character 
foltowing this token. NEXT_TOKEN assumes that <FIRST CHARACTER> 
describes a nonmblank character. 


o=- 31 


BUKRRQUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 31890/B81709 SOL CBNF Version) CF) 
SANTA BARBARA PLANT PeSe 2212 5495 


<PARITY ADORESS 
DESIGNATOR> ::= PARITY ADDRESS 


For MCP use only. 


The <PARITY_ADDRESS DESIGNATOR> returns a 24~bit value which is 
the address of the first parity error encountered in S*Memory-e 
If no parity error is found» AFFFFFFa is returned. 


<PROCESSOR_TIME FUNCTION GENERATOR> s3= PROCESSOR_TIME 


PRICESSOR_TIHE wilt yield the accumulated frocessor time since 
BOJ in tenths of a second as a BITC(C20) data item. 


Exampte: 


DECLARE CPROC_TIMEs»HOUR S»MINUTES»SECUNDS*» TENTHS) BITC2G)s 


jk EARLY CODE se 

PROC_TIME := PROCESSOR_TIMES 

jk coDpDE TO BE TIMED «/ 
PROUC_TIME := PROCESSOR_TIME = PROC_TIMES 
HOURS = PROC_TIME / 369993 
MINUTES  :2= PROC_TIME 40D 36009 / 6003 
SECONDS := PROC_TIME MOD 690 / 103 
TENTHS := PROC_TIME OD Loz 


/* LATE CODE «/ 


PROGRAM SWITCHES 


<PROGRAM_ SWITCHES 
DESIGNATOR> 3 i= PROGRAM SWITCHES 
1 PROGRAM _ SWITCHES C<EXPRESSION>) 
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This function ts used to read the program switches which have 
been specified by the Program's Parameter Block (CPP8)» a control 


card or a SPO input. If a parameter 18s specified» the 
corresponding switch (02 through 9) is returned as a 4"™bit 
quantity. A parameter which is Less than zero or greater than 
nine will yield arun tiwe error of invalid substring. [If no 


parameter is specified» atl ten switches are returned as a 40-bit 
result. SOL provides no means to modify the progran switches.» 


<SEARCH_LINKED_LIST 

DESIGNATOR> ::= | SEARCH_LINKED_LIST 
C<START RECORD>»<COMPARE FIELD>, 
<COMPARE VALLE>»<RELATIOGN>> 
<LINK FIELD>) 


<START RECORD> :3= <EXPRESSTON> 
<COMPARE FIELO> 3::= <TEMPLATE> 
<CUMPARE VALUE> ss= <EXPRESSTON> 
<RELATION> s3= < 1 <= — 1 /= | >= 1 > | 
LSS 1 LEQ f EQL § NEQ 1 
GEQ ! GIR I 
<LINK FIELD> 33= <TEMPLATE> 
<TEMPLATE> 32 <ADDRESS GENERATOR> 
1. The <START RECORD> is the first structure to be 


examined. Typically» it is an <ADDRESS GENERATOR> >» 
but an <EXPRESSIGN> is allowed. 


2 The <COMPARE FIELO> is a template which gives the 


relative offset and size in the structure» of the 24 
Cor tess) bit field being compared with the <COMPARE 


VARIABLE>. 
3% The <CUMPARE VALUE> itis the value against which the 
specified field in the structure is compared. 


<COMPARE VALUE> 1s considered "on the teft™ of the 
relatione : 


Le The <RELATIUN> specifies the desired relation in the 
comparison cf the two valueseo 


5. The <LINK FILELD> is a temptate which oaives the 
relative offset and size in the structures of the 24 
(or less) bit field containing the address of the 
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next structure to be examined cif comparison with the 
current structure fails). 


A temclate 15 an address generator whose address is relative to 
the beginning of a structure rather than base relative. A field 
in a structure dectared REMAPS BASE has such an address. 


The last structure in the Linked list contains att Il bits in the 
field described by the <LINK FIELD>. 


The tinked list is searched until the desired comparison succeeds 
or until the comparison fatls with the last structure. 


If the search succeeds» the basesrelative address of the current 


structure is returned as a 247bit value. If the search fails» 
aFFFFFF2 is returned. 


SEARCA_ SOL _ STACKS 


SEARCH _SDL_STACKS 

OESIGNATOR> ::= SEARCH_SDL_STACKS 
C<STACK BASE>» <STACK TOP>, 
CCOMPARE BASE>» <COMPARE TOP>) 


<STACK BASE>: :=  SEXPRESSION> 
<STACK TOP> s:= <EXPRESSION> 
<COMPARE BASE>s3= <EXPRESSION> 
<COMPARE TOP>ss= <EXPRESSTIGN> 


The four parameters are expected to generate vatues which are 
base"relative addresses of the base and top of a stack of SOL 
descriptors and of an address ranger» respectively. The stack 
will be searched for a nonarray» non@selfrrelative SOL 
descriptor whose address is within the given ranges If the 
search is successful aCl)la will be returned, otherwise» a@C1)99 
will be returned. 
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SEARCH SERIAL _LIST 


<SEARCH SERIAL 

LIST DESIGNATOR> ss= SEARCH_SERTAL_LIST (<SSL COMPARE VALUE >» 
<SSL COMPARE TYPE>» <SSL COMPARE F IELD>» 
<SSL FIRST {TEM>» <SSL TABLE LENGTH>» 
<SSL RESULT VARI 4ABLE>) 


<SSL CUMPARE VALUE> ::= <EXPRESSION> 
<SSL COMPARE TYPE> 235 <§ <= § = 1 /= 1 >= I > 
1155 ' LEQ | EQL t NEQ@ 1 GEQ 1 GTR 
<SSL COMPARE FIELD>::= <TEMPLATE> 
<SSL FIRST ITEM>::= <ADDRESS GENERATOR > 
<SSL TABLE LENGTH>: := <EXPRESSION> 
<SSL RESULT VARIABLE>::= <ADDRESS GENERATOR> 
<TEMPLATE> 3:5 <ADDRESS GENERATOR> 


SEARCH_SERIAL_LIST searches a serial List of items beginning with 
the structure described by <SSL FIRST ITEM>.] <SSL COMPARE VALUE> 
is compared Cas specified ody <55L COMPARE TYPE>) against the 
fieid of the field described by <SSL COMPARE FIELD> (<SSL COMPARE 
FIELD> is a TEMPLATE) until a match has deen founds or until <SSL 
TASLE LENGTH> number of bits has been searched. 


When the relation is non~commutativere the comparisons are made as 
though “SSL COMPARE VALLE> was "on the tleft* of the relation. 


If the search succeeds» the base relative address of the item 
containing the successful <S5L COMPARE FIELD> is stored in <SSL 
RESULT VARIASLE> and a 3(1)123 is returned. 


If the search failse then the end address of the table if stored 
in <SSi RESULT VARIABLE> and a @(1)99 is returned. 
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<MEMGRY SIZE 
DESIGNATOR> ::= S_MEM_SIZE | M_MEM_SIZE 


The requested memory size is returned as a 24"bit data item of 
type bite 


<SORT_SEARCH 
DESIGNATUR> 23= SORT_SEARCH 

C<TABLE ADDRESS>» <LIMIT>) 
<TABLE ADDRESS> ::= <ADDRESS GENERATOR> 


<LIMIT> s33= <EXPRESSIOQN> 
For use by sort only. 


The <SORT SEARCH CESIGNATOR> crovides the information tc evaluate 
a record for sorting purposese The <TABLE ADDRESS> contains the 


address» in an array of records» oaf the first record to be 
examined and the condition under which records will be selected. 


The <LIMIT> specifies the Last recorda to be examined. 


<SORT_STEP_DOWN 

DESIGNATGR> ::= SORT_STEP_DOKN 
(<RECORD 1>»%<RECORD 2>> 
<KEY TABLE ADDRESS> 


<RECGRD 1> 3s:= <EXPRESSION> 
€RECORD 2@> s3= <EXPRESSIGN>? 


<KEY TABLE ADDRESS> i: <EXPRESSION> 
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For use by sort only. 


The <SURT_STc&P_ DOWN DESIGNATOR> provides the information 
necessary to compare two recordse <RECORD L> and <RECORD 2> ares 
respectively» the first and second records which are to be 
compared.» The <KEY TABLE ADORESS> specifies the sort key used in 
the comparisone 


on eae aw ow oe —_ <> 


<SOR T_UNKLOCK 

DESIGNATUR> ::= SORT_UNSLOCK (<MINI FIB ADDRESS>» 
<LENGTH>» <SOURCE >» <OESTINATION>) 

<MINI FIB ADDRESS> ::= <ADDRESS GENERATOR> 

<LENGTH> ¢:= <EXPRESSION> 

<SOURCE> ::= <EXPRESSION> 


<DESTINATION> i2= <EXPRESSIGN> 
For use by SORT only.» 


The <SORT_UNGLOCK DESIGNATOR> moves a record to or from a buffer» 
updating the buffer pointer and block count. It normally returns 
a zeroe then the block count goes to zero» iit restores the 
original buffer pointer and block count» and returns a IL» 
signatling the need for an [/0. 


A obit onthe minirFIB signals SORT_UN&SLOCK to create sort tagse 
For this functions it uses the sort key tatle and selects onty 
the key information to move from the buffer. A value in the 
minivwFi8 represents the Length of the receiving field. 


SUR em inal EN ED. ans OS 


<SP0O INPUT 
PRESENT JESTIGNATOR>22= SPO_INPUT_PRESENT 
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A special» SPU_INPUT_PRESENT> has been added to attow the 
presence of 3PG input to be tested before having to perform an 
accept to the MCP. 


TT <_< oe a oe oe oe 


<SUBMSTRING VALUE 

DESITGNATOR> 3 3s= <SUS"“STRING FUNCTION IDENTIFIER> 
C<STRING VALUE>»<GFFSET PART>) 

{ <SUB“STRING FUNCTION IDENTIFIER> 
C<STRING VALUE>»<OFFSET PART>>» 


<LENGTH PART>) 


<SUB*STRING FUNCTION 


TCENTIFTER> i:= SUBS{T 1 SUSSTR 
<STRING VALUE> 3s <EXPRESSTION> 
<OFF SET PART> 33 <EXPRESSION> 
“LENGTH PART> :3= <EXPRESSTION> 


The <SUHMSTRING VALUE DESIGNATOR> and the <SU8B*STRING ADDRESS 
DESTGNATOR> are identical except that the former returns a value 
if its <STRING VALUE> is not an <ADDRESS GENERATOR>. Please see 
SUBBIT AND SUBSTR under ADDRESS VARIABLES for the specifics of 


the function. 


The following examples illustrate some of the uses of the 
<SUBWSTRING VALUE DESIGNATOR>: 


XISUBSTRCA CAT BreSel dD); 
MAKE _ DESCRIPTURC 3483 CAT SUBBITCA OR Bs O» 16) CAT HX) Jenne 


IF SUBSTRCQ96a CAT ABCe 0) = Y THEN eaes 
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<SWAP DESIGNATOR> ::= SWAP C<ADDRESS GENERATOR>» <EXPRESS TON> ) 


The Length of the vatue described by the <ADDRESS GENERATOR? is 
used as the Length» L» of the data to be SwAPped. Howevers if 
the length of the value is greater than 24 bitse L will be 24 
bits» and only the towtordear 24 bits of the <ADDRESS GENERATOR> 
wilL be modified. 


SWAP is indeed a true swap operation: that 1s» the items are 
exchanged in one “virtual” memory cycle. This is necessary for 
the synchronization of independent processes (8@ede»x MCP and 
GI35N0). 


The rightmost L bits of the value described by the <ADDRESS 
GENERATOR> are isolated» and become the destination field. 


The rightmost L bits of the value generated vy the <EXPRESSTIGN> 
are isolated. Leading zerces are supplied if the length of the 
value is bless than L obits tonge This field ts known as the 
source fiteld. 


The source field is stored into the destination field» the 
original value of which ts the value returned. The returned 
value is of type bit and of Length Le 


Example: 


AIQs 


IF SWAP CA-1) THEN DO we- ENDS 
ELSE D0 eee ENDS 


In the above example» the ELSE part af the statement 1s 
evaluated» since A was originally set to 0 Cip~ee» false). At the 
end of the SWAP» 1 has been stored into A» and 9 returned to the 
top of the Evaluation Stack. 
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Tise 


<TIME FUACTION 
DESIGNATOR> 323: 


TIME 
1 TIME C<TIME FORMAT>»<REPRESENTATION>) 


<TIME FORMAT> s3= COUNTER # MILITARY 1 CIVILIAN 


<REPRESENTATION> s3= BIT §! DIGIT ! CHARACTER 


The <TIME FUNCTION DESTIGNATOR> returns a bit or character string 
which is the time of the function's execution» The <TIME FORMAT> 
may have three basic formats: 


COUNTER? Returns the time of day in tenths of seconds. 


MILITARY: Returns the time of day in the following form -- 
HHMNHSST CWhere T=Tenths of seconds). 


CIVILIANS Returns HHMMSST4&PCWhere AP=AM OR PM). 


The time of day may be represented in etther bits» digits» or 
characters in the fottlowitng formats: 


BIT DIGIT CHARACTER 
COUNTER 20 BITS 24 BITS 48 BITS 
MfLITARY 5+6+64+4=21 8+ 8+ 8+4=28 16#16+16+8=56 
CIVILIAN 4 #64644 +4+16=36 8+8+8+44+16=44 16+164+16+84+16=72 
NOTE: TIME and TIME CCIVILTIAN»>CHARACTER) are equivalent. 
TIMER 
<TIMER DESIGNATOR>: := TIMER 
A vatue of type BITC24) is returned. The value is the current 


setting of the TIME register. 
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VALUE _QESCRIPTOR 


<DESCRIPTOR“VALUE GENERATOR 
DESTGNATOR> 33:= VALUE _DESCRIPTOR (<ADDRESS GENERATOR>) 


<ADDRESS GENERATOR> s2= See ADDRESS GENERATORS 


The <ADDRESS GENERATOR> ts represented by a descriptor at the top 
of the Evaluation Stack. This descriptor is moved to the Vatue 
Stacke In its place on the Evatuation Stack is teft a descriptor 
describing the one just moved to the Value Stack. 


The NamerValue bit is set in the descriptor left in the 
Evaluation Stack. 


WALT 
<WAIT FUNCTION> 3 t= WAIT ¢€START POSITION> C<EVENT 
LIST>) 

START POSITION> ::= [<EXPRESSLON>] 1 <EMPTY> 
<EVENT LIST> :3= <EVENT> {| <EVENT LIST>» <EVENT> 
<EVENT> 325 <SIMPLE EVENT> # <QUALIFIED EVENT> 
<QUALIFIED EVENT> 22= SIMPLE EVENT> WHEN <EXPRESSION> 
<SIMPLE EVENT> ::= TIME_TENTHS (<EXPRESSION>) 

1 SPO_INPUT_PRESENT 

1 SPO_INPUT_PRESENT 

1 OC_IO_COMPLETE 

1 REAO_OK C<FILE SPECIFIE8>) 

1 WRITE_OK C<FILE SPECIFIER>) 

{1 Q_WRITE_OCCURRED (<FILE IDENTIFIER>) 
<FILE SPECIFIER> ¢:= <FILE [DENTIFLER> 


( <FILE IDENTIFIER> C<EXPRESSION>] 


The WAIT function returns a fixed vatue which is the ordinal 
postition of a true event in the <EVENT LIST>. If no event is 
true» the process will be blocked until one of the events occurs. 
If more than one is truep the value that is returned is the 
position of the first event fcund true in a left to right 
circular scan starting from <START POSITION>. Tf <START 
POSITION> is empty» zero is assuned. If <START POSTITION> is 
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greater than or equal 


the NCP wilt terminate the 
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to the number of items in the <EVENT LIST>» 
job. In the case of a <«<@UALIFIEO 


EVENT>>» the event wili never cecome true unless the qualifying 
KEXPRESSTOUN> evaluates to true» teee» its towest order bit is a 


Ona 


The various events 
satisfied: 


TIME TENTHS (<EX- 
PRESS ION>) 


SPO_INPUT_PRESENT 
CC_IOQ_COMPLETE 


REAC_OK («FILE 
SPECIFIER>) 


WRITE_OK («FILE 
SPECIFIER>) 


G_WRITE_OCCURRED 
(<FILE LDENTIFIER>) 


Restrictions: 


le If TIME.TENTHS 


teft.e 


Ze The maximum 


1<«@Qer 24 hourse 


true when the condition(s) telow are 


CONDITIONC S$) 


The specified number of tenths of secm 
onds have elapsed since the WAIT began 
executione 


A message from the operator has been 
queued for the WAITing program. 


A previously initiated data communications 
I} has teen cospleted. 


The buffer for the specified file contains 
a record waiting to be read. Ef. <a 
C<EXPRESSION>}] is specified» it is taken 
to be a subscript of a queue file family. 
If the file is a queue file famtly and fro 
subscript is specified» the event is 
always tru@. 


A buffer for the specified file is empty» 
waiting for a write operation. See above 
for queue file families. 


A write operation has teen done Coy 
another process) on a member of a queue 
file family nared in the time since the 
WAIT began executione This event will te 
correct only when preceded by 
MESSAGE COUNT. 


the lists» tt must be at the extreme 


o f tenths of seconds is 86450G9>» 
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I70 CONTROL STATEMENTS 


<I1/0 CONTROL STATEMENT> ::= <OPEN STATEAENT> 
<CLOSE STATEMENT> 
<KEAD STATEMENT> 
<ARITE STATEMENT> 
<SEEK STATEMENT>; 
<ACCEPT STATEMENT>; 
<OISPLAY STATEMENT >; 
<SPACE STATEMENT> 
<SKIP STATEMENT>; 


nn ae << am om 8 ae OM 


Each file is numbered sequentially» beginning with zero. This 
number is the <FILE NUHSER> and witt eventually be used as an 
index into the FIB dictionary. The file dectaration wilt be usec 
to construct an FPB in the code file. 


BURROUGHS CORPORATION 
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SANTA BARBARA PLANT 
OPEN STATEMENT 


<OPEN STATEMENT>3: s= 


<OPEN PART>32:= 
<FiILE DESIGNATOR>3::= 


<OPEN ATTRIBUTE PAR T> 


<OPEN ATTRIBUTE LIST> 


CATTRICUTE SEPARATUR>: 


<OPEN ATTRIGUTE> <2:= 


<INPUT*OUTPUT MODE> s:= 


<LOCK MODE> i: 
<OPEN ACTION MODE> s:= 


eMFCU MODE>si= 


<ON BEHALF OF MODE>:= 
<FILE MISSING PART>3:= 


<FILE LOCKED PART>:3= 


FORMAT UPTICNS: 


1. GPEN DECL ARED_FILE, 
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<OPEN PART>; . 

<OPEN PART>s <FILE MISSING PART> 
<UPEN PART>s <FILE LOCKED FART> 
SOPEN PART>s <FILE MISSING PART> 
<FILE LOCKED PART> 


OPEN <FILE DESIGNATOR> 
<UPEN ATTRIBUTE PART> 


<FILE IDENTIFIER> 
<SWITCH FILE TOENTIFIER> (C<EXPRESSTON>) 


<EMPTY> 
<QPEN ATTRIBUTE LIST> 
WITH <OPEN ATTRIBUTE LIST> 


<GPEN ATTRIBUTE> 
<OPEN ATTRIBUTE> <ATTRIBUTE SEPARATIJR> 
<OPEN ATTRIBUTE LIET> 


» | <SLASH> 1 <EMPTY> 
<INPUT“GUTPUT MOCE> 
<LOCK MUDE> 

<GPEN ACTION WODE> 
<MFCU MODE> 

<ON BEHALF OF MODE> 
INPUT ! GUTPUT Ut NEW 


LOCK {! LOCK.OUT 


NO_REWIND {| REVERSE 


PUNCH 1 PRINT 1 
INTERPRET ft STACKERS 


ON_BEHALF_OF <EXPRESSIQN> 
ON FILE_MISSING <EXECUTABLE STATEMENT> 


QN FILE_LOCKED <EXECUTAJLE STATEMENT> 


If no attributes are specified» INPUT is assumed. 
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FOLLOWED Br: | AND/OR: 
LOCK 
INPUT LOCK OUT 
20 OPEN DECLARED_FILE OUTPUT NO_REWIND 
NEW * REVERSE 
INPUT» GUTPUT LOCK» NO_REWIND 
3e GPEN DECLARED_FILE WITH OUTPUT» NEW LOCK» REVERSE 


INPUT» OUTPUT» NEW LOCK_OUT>» NO_REWINO 
LOCK_OUT» REVERSE 


* NEW alone assumes OUTPUT» NEW. 
Note: The combination INPUT» NEW results in a syntax error. 
If the <OPEN ATTRIBUTE>s have been explicitly or implicitly 


includea in the file declarations then the file need not be 
explicitly opened here. 
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<CLOSE STATEMENT>::= CLOSE <FILE CESIGNATOR> 
<CLOSE ATTRIBUTE PART>; 


<FILE DESIGNATOR> i= <FILE IDENTIFIER> 
1 <SHWITCH FILE ILOENTIFIER> C<EXPRESSTUN>) 


<CLOSE ATTRIBUTE PART> si= <EMPTY> 
1 <CLOSE ATTRIBUTE LIST> 
| WITH <CLOSE ATTRIBUTE LIST> 
<CLOSE ATTRIBUTE LIST> s:= <CLOSE ATTRIQUTE> 
1 <CLOSE ATTRIBUTE> <ATTRIBUTE SEPARATOR> 
<CLOSE ATTRIBUTE LIST> 
<ATTRIBUTE SEPARATOR> 33= » 1 <SLASH> 1 SEMPTY> 


<CLOSE ATTRISBUTE> 22= <CLOSE MODE> 
1 CRUNCH | ROLLOUT | PURGE I REMOVE 


<CLOSE MODE> 2:5 REEL { RELEASE 3 PURGE I REMOVE 
, 1 NO_REWIND {| LOCK 


FORMAT OPTIONS: 


le CLOSE DECLAREC_FILE;> 
There is no default. If LOCK is specified as part of the 
file attributes» the file is LOCKed if the program 
terminates abnormally. Otherwisesr the file is not LOCKed. 


FOLLOWED BY ANO/OR ONE OF: & 


C OR ONE OF: 


REEL 
2e CLOSE VECLARED_FILE ROLLOUT RELEASE 
CRUNCH PURGE 
IF _NOT_CLOSED REMOVE 
NO REWIND 
LOCK 
t If more than one aption is specifiece onty the final 


one is used ty the compiler. 
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Files need not be explicitly closed. Howevers closing a file 


when finished with it will free memory space for other uses. 
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READ STATEMENT 


<BEAD STATEMENT> 235 


<READ 


<REAG SPECIFLIER> i:= 


<FILE DESIGNATOR> 2: 


<CISH READ SPECIF IER> 


<REC ORD ADDRESS PART> 


CRECORD ADDRESS> 


> 2 = 
se 


<REMGTE AE AD 


REMOTE 


<REMOTE 


SQUEUE READ SPECIFIER> 


<QUEUE FAMILY 
MEMBER PART> ::= 


<QUEUE FAMILY MEMSER> 


CRESULT MASK> 33= 


SPECIF LER> 


oer 
o 


* 
cad 


a 


9-6 

COMPANY CONFIDENTIAL 
SOL CBNF Version) CF) 
PeSe 2212 54°59 


BLbCO/B1700 


<READ 
CREAD 
READ 


PAR T>>» 
PART>*-<ON SEGQUENCE> 


PART><RESULT M&SK>s <ON SEQUENCE> 


“READ SPECIFIER> 


<DISK READ SPECIFIER> 
REMOTE READ SPECIFIER> 


<QUEUE READ SPECIFIER> 


READ <FILE DESIGNATOR> 
C<ADDRESS GENERATOR>) 


<FILE IDENTIFIER> 
<SWITCH FILE [DENTIFIER> CKEXPRESSTUN>) 


READ 

<cFILE DESIGNATOR> 
SRECORO ADDRESS PART> 
C<ADDRESS GENERATOR>) 


<EMPTY> 
C<RECORD ADDRESS>] 


<EXPRESSION> 

READ <FILE DESIGNATOR> 
<REMOTE KEY PART? 
C<ADDRESS GENERATOR>) 


<EMPTY> 
{<REMOTE KEY>]2 


<ADDRESS GENERATOR > 
READ <FILE DESIGNATOR> 


<MUEUE FAMILY MEMBER PART> 
C<KADDRESS GENERATOR>) 


<EMPTY> 
C<QUEUE FAMILY MEMBER> 1] 
<EXPRESSTION> 


WITH RESULT_MASK <ADDRESS GENERATOR> 


ia 
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The <READ STATEMENT> provides the necessary information to read a 
fiie: 4 file identifiers record address» data informations and 
instructions to be executed if an end~of-file or a parity error 
1s detected. 


The <READ STATEMENT> separates files into four categories: disk 
files» remote filesr» queue filesr and all others (cards taper 
papertaper etce). If the file attributes indicate a random disk 
file» the user may specify <RECORD ADDRESS>. In all cases» the 
user need oanty give the <FYILE DESIGNATOR > and <ADDRESS 
GENE RATOR>., 


If the file is of type REMOTE» and the REMOTE_KEY ATTRIGUTE is 
set then a “REMOTE KEY> may be used. (For the format of this»e 
see the discussion under REMOTE_KEY in the FILE DECLARATION 
SECTICN.) If the REMOTcC_KEY attribute is not set» then a <REMOTE 
KEY> may not be used. After performing the read» the REMOTE KEY 
will have been stored in the field specified as the <REMOTE KEY>. 


If the file is of type QUEUE and is a multi-queue famity» then a 
<QUEUE FAMILY MEMBER> may te used. This iS an expression whose 
value will specify which member of the family to reaa from. I f 
this 45 omitted» then the oldest message in all of the queues 
witl be read. 


If the <XESULT MASK> option is usede the occurrence of = an 
exception in the mask 1s siqnatled by the ON EXCEPTION sequence. 
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> ww ae ae ae ae ae a oe ee a ee 


CWRITE STATEMENT> 33= <ARITE PAR T>> 
I <WRITE PART>s<ON SEQUENCE> 
1 <ARITE PART> <RESULT MASK>; 

<ON SEQUENCE> 


<WRITE PART> 325 WRITE SPECIFIER> 
1 <DISK WRITE SPECIFIER> 
1 <REAOTE WRITE SPECIFIER> 
( <QUEUE WRITE SPECIFIER> 


u 


WRITE SPECTIF IER> 


WRITE <FILE DESIGNATOR? 
<CARRIAGE CONTROL PART> 
C<EXPRESSTON>) 

1 WRITE <FILE IDENTIFIER? 
<CARRIAGE CONTROL PART> 

<FILE DESIGNATOR> <FILE IDENTIFIER> 

1 <SWITCH FILE IDENTIFIER> CK<EXPRESSION>) 


<CARRIAGE CONTROL PART> :3= <EMPTY> 
1 <CARRTIAGE CONTROL SPECIFIER> 


<CARKTAGE CONTROL 
SPECIFIER> ss= NO §€ SINGLE |! DOUBLE 1! PAGE 
1 <SKIP*TUTCHANNEL> 1 NEXT 


<SHTP*TOTCHANNEL> ss= <CHANNEL NUMBER> 
<CHANNEL NUMBER> s3= L$ 2 4 3 JY woe | LL I 12 
<CISMH WRITE SPECIFIER> s3= WRITE 


<FILE DESIGNATGR> 
<RECORD ADDRESS PART> 
C<EXPRESSION>) 


<RECGRD ADDRESS PART> 235 <EMPTY> 
1 C<RECORD ADORESS>) 


<REC ORD ADDRESS> 225 <EXPRESSTON> 

CRoMOTE WRITE 

SPECIFIER>: z= WRITE <FILE DESIGNATOR? 
CREMOTE KEY PART> 
C<EXPRESSION>) 


<RFEMOTE KEY PART>2:= <EMPTY> 
1 C<REMOTE KEY>) 


<REMOTE KEY>: 3= <ADDRESS GENER ATOR > 


<QUEUE WRITE 


Se 
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SPECIFIER>: 2= WRITE <FILE GEST ENATOR> 


<QUEUE FAMILY MEMBER PART> <TOP> 
C<ADDRESS GENERATOR>) 


<FILE DESTGNATOR>23= <FILE IGENTIFIER> 
1 <SWITCH FILE IODENTIFIER> C<EXPRESSION>) 


<TOP> <::= <EMPTY> § TOP 


<QUEUE FAMILY 
MEMBER PART>: 8= <EMPTY> 
: { C<QUEUE FAMILY MEMBER>] 


<QUEUE FAMILY MEMBER>:s s= <EXPRESSTON> 


CRESULT MASK> oi WITH RESULT_LMASN <ADDRESS GENERATOR> 


The «WRITE STATEMENT> provides the necessary information to write 
a file. The <WRITE STATEMENT> treats disk files separately from 
other file types oy allowing the user the option of specifying 
<RECORD ADDRESS> on ris random disk files. The <CARRTAGe CONTROL 
PART> is intanded for use with a printer file. 


If the fite is of type REMOTE» and the REMOTE_KEY attribute is 
set then a “REMOTE KEY> may be usede (For the format of this» 
see the discussion under REMOTE_KEY in the FILE DECLARATION 
section.) If the REMUTE_KEY attribute is not set» then a <REMOTE 
KEY> way nut te used. The <REMOTE KEY> witl specify the terminal 
to which tne write is to be performed. 


If <DIS WRITE SPECIFIER> is used when the actual device 1s a 
data recorder» the “RECORD ADDRESS> wilt be used to setect a 
stacker. 


If the file is of type QUEVE and is a multisqueue family» then a 
<QUEUE FAMILY MEMBER> may be used. This is an exrression whose 
value will specify which wenber of the family tc write toe Tf 
TOP is specified» the message wilt be written te the front of the 
queue. 


If the <END“GF*TPAGE PART> is set in the file attributes» then 
when end*of™page is detected on a printer filer the <EQF PART> 
will be executede This facilitates» for examples» printing totals 
and/or headings without keeping a Line counter. 
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If the <x&&SULT 4ASK> option is used» the occurrence of an 


exception in the mask is signalted by the ON EXCEPTION sequence. 


EXAMPLE? 
WRITE PRINTOUT SINGLE CPRINT_LINE); 
ON EQF DQ; 
WRITE PRINTOGUTs % SKIP A LINE: 
ARITE PRINTOUT PAGE CTOTALS); 
WRITE PRINTOUT DOUBLE CHEADER); 
END> 
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SEEK STATEMENT 


<SEEK STATEMENT> 3 SEEK 
“FILE DesiIGNaATQR> 
C<RECORD ADDRESS>] 


<FILE DESIGNATOR> i= FILE IDENTIFIER> 
{ <SWITCH FILE IDENTIFIER> C<EXPRESSTUN>) 


<RECORD ADDRESS> 225 <EXPRESSTON> 


The <SEEK STATEMENT> calits up a record fren a random disk file tn 
preparation for a read on that record. This statement should 
only be usad with disk files that are being read using a random 
access technique. 


4 <SEEK STATEMENT> performed immediately prior to a <READ 
STATEMENT> is tess effective than merely reading the recorde 
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<ACCEPT STATEMENT> 232 ACCEPT <ADDRESS GENERATOR> 


The <ACCEPY STATEMENT> causes the execution of a program to halt 
until the appropriate information is entered via the SPO by the 
operatore The message keyed tin with be read into the area 
specified by the <ADDRESS GENERATOR> following the reserved word 
ACCEPT. at 


See ADDRESS VARIABLES for the syntax of the <A4DDRESS GENERATOR>. 
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DISPLAY STATEMENT 


<DISPLAY ST4ATEMENT> ss DISPLAY <EXPRESSION> 
<CRUNCH SPECIFItkR> 


<CRUNCH SPECIFIER> ss= <EMPTY> 
{ » CRUNCHED 


The <DISPLAY STATEMENT> prints an output message on the SPO. As 
noted» the <CRUNCH SPECIFIER> is optional. If » CRUNCHED is 
specified» the system will delete trailing olanks and substitute 
one blank for each occurrence of multipie embedded tlanks. 
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SPACE STATEMENT 


<SPACE PART>>; 
1 <SPACE PART>s <0ON SEQUEACE> 


<SPACE STATEMENT> 3:3 


' 


<SPACE PART> i3= SPACE «FILE DESIGNATOR> 
<SPACING SPECIFIER> 


<FILE IDENTIFIER> 
1 <SWITCH FILE ITDENTIFIER>C <EXPRESSION>) 


<FILE DESTIGNATOR> 


ee 
oe 
ti 


<SPACING SPECIFIER> ::= <EXPRESSION 1 TO <EXPRESSION> 
t TO_EOF 


The <SPACE STATEMENT> atlows the user to skip over certain 
records in a sequenttat file. 


The <SPACING SPECIFIER> may take three forms. An <EXPRESSTON> 
alone will indicate the number of records to be spaced. it may 
be a negative number indicating reverse spacing. TO <EXPRESSTON> 
witt always be a positive number and indicates the number of the 
record to space to. TOLEOF wilt cause the file to space to its 
current ends 
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SKIP STATEMENT> 325 SKIP <FILE [DENTIFIER> TO <CHANNEL NUMEPER> 


<FILE DESIGNATOR> 22= <FILE IDENTIFIER > 
{ <SWITCH FILE IDENTIFIER> (<EXPRESSTON>) 


<CHANNEL NUNBER> i3= 2 ¢ 2 $ 3 t woe F 11 FI 12 


The <SKIP STATEMENT> causes the line gfrinter to skip to a 
specified channel number on its carriage tapee The channei 
numbers control the verttcal spacing of data on a orinted page 
and are defined by the carriage tape on the device. 
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<ON SEQUENCE> 3s= <ON CLAUSE> <EXECUTABLE STATEMENT> 
1 <ON SEQUENCE> <QN CLAUSE> <EXECUT= 
TABLE STATEMENT> 


<ON CLAUSE> ::= ON EGF ¢{ ON INCOMPLETE_IO 
{| ON EXCEPTION | UN EXCEPTION 
C(<STATUS>) 
<STATUS> 225 <ADDRESS GENER ATOR> 


An ON SEQUENCE is used to examine the status of the 1/0 requested 
by the preceding statement. When any of the <QON CLAUSE>s are 
true» the corresponding “EXECUTABLE STATEMENT> witt be executed 
before proceedinge Gniy one condition wili be true. If <STATUS> 
is requested in ON EXCEPTION» a 24"bit result describing the 
exact exception will be assiaqned to the given <4DDRESS 
GENE RATOR>. 


The <EXECUTASLE STATEMENT>s of the <0N SEQUENCE> are considered 
subordinate to the <WRITE STATEMENT>. Therefore» segmentation of 
these statements is temporary (See THE SEGMENT STATEMENT). 


Notes Exceptions may be masked by the EXCEPTION_MASK clause mn 
the file declaration. 
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EXECUTABLE STATEMENTS 


ee er — aseen ab OOS ae ae on oe 


EXO CUTABL: STATEMENT 
LIST> 3:= EXECUTABLE STATEMENT> 
1 <EXECUTASLE STATEMENT> 
<EXECUTABLE STATEMENT LIST> 


<EXZ CUTABLE STATEMENT> ss= <D0 GROUP>>; 

<GRUUP TERMINATICN STATEMNENT>> 
<IF STATEMENT; 

<CASE STATEMENTS; 

<ASSIGNMENT STATEMENT>> 

SREFER STATEMENT>> 

“REDUCE STATEMENT>; 
<EXECUTE*PROCEDURE STATEMENT>; 
SEXECUTE@FUNCTIOQN STATEMENT>; 
<I/0 CONTROL STATEMENT> 
<MOOIFY INSTRUMENT S>3 

CNULL STATEMENT> 

<FILE ATTRIBUTE STATEMENT; 
<STOP STATEMENT>; 

<ZIP STATEMENT>> 

<SEARCH STATEMENT>; 

<ACCESS FILE HEADER STATEMENT>, 
CARRAY PAGE TYPE STATEMENT>; 
<COROUTINE STATENENT>; 
<SEGMENT STATEMENT > 
EXECUTABLE STATEMENT> 


a a: hl ll ee eC 


<ASSIGNMENT STATEMENT> 23= SEE ASSIGNMENT STATEMENTS 
AND EXPRESSIONS 


<1/0 CONTROL STATEMENT> 3:3= SEE I/Y0 CONTROL STATEMENTS 


SSEGHENT STATEMENT> 33= SEE THE SEGHENT STATEMEAT 
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<CG GROUP> 3: 


it 


<GROUP HEAD> 
<GROUP 60DY> 


GROUP HEAD> := CGROUP NAME> 
<FOREVER PART>; 

<GROUP NAME> 3:5 DQ 

1 DO <GROUP IDENTIFIER> 
<FOREVER PART> is= <EMPTY> 

1! FOREVER 
<GROUP TOENTIFIER> t2= <IDENTIFTIER> 
<GROUP BUDY> ss= <EXECUTABLE STATEMENT LIST> 


<GROUP ENDING> 


<GR9UP ENDING> ::= END 
1 END <GROUP ICENTIFIER> 


The <O00 GROUUP> is a collection of <EXECUTASLE ‘STATEMENT>s) which 
functions as a routine. It is executed once urtless FOREVER 
appears after the <GROUP NAME>. 


If FCREVER is present» the <DO GPOUP> will obe executed 
iteratively untit a specific condition is mete Qnty a <GROUP 
TERMINATION STATEMENT> CUNDQ) or ae <«<TYPED PROCEDURE RETURN 
STATEMENT> CRETURN)D can get the program out of this loop. See 
the following example: 


DO THIS FOREVER; 
READ CARD CA)> ON EOF UNDO; 
[TF 55 GTR 3UMP X 
THEN WRITE PRINTER (CA)Ds 


ELSE DO; 
Xtls 
WRITE PRINTER PAGE CA)S 
ENO> 
END THIS; 


If it 15 necessary to execute the statements in a *<DO GROUP> from 
different points tn the program» more effictent code is generated 
by making the Cody of the group a procedure rather than by 
repeating the <D0 GRUUP>. 
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RESTRICTIONS: 
1. [tf a <GRUUP IDENTIFIER> is tincluded in the <GROUP 
NAME>» it must also appear in the <GROUP ENCING>. 
oe If the <GROUP NAME> does not include an identifier» 
the <GROUP ENDING> must not contain one. 
3e FOREVER is not a reserved word and may appear as the 
<GROUP IDENTIFIER>. O0 FOREVER; is considered to be 
the <GROUP HEAD> of an unnamed» iterative <DO 
GROUP>. DO FOREVER FOREVER is a tegal heading for a 
named» iterative group. 
4e Nested <DO GROUP>s may not have duplicate 
identifiers. If this occurser a warning message will 
appear on the program Listing. 
5 <CO GROUP>s may be nested 32 Levels deep. Howevers a 


<GROUP TERMINATION STATEMENT> can UNDO onty a maximum 
of lo levels. 
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<EROUP TERMINATION 
STATEWMENT> i: UNDO 
{ UNDG. <GROUP IDENTIFIER> 


<GROUP IDENTIFIER> :s= <IDENTIFIER> 


The <GROUP TERMINATION STATEMENT> will cause the execution of 4a 
<O00 GROUP> to cease» and wilt transfer control to the next 
statement followtng the <DO0 GROUP> which has teen UNDONE. The 
statement may take one of three forms: 


le UNDO witl transfer control out of the <00 GROUP> 
which contains the statemento 

2. WNDOO <GROUP IOENTIFIER> takes control out of the <00 
GROUP> specified by the identifier. 

Re Another forms UNDO (C« )»> 15 now considered obsolete. 
Tt transferred control out af the outermost <Dd 
GROUP>. 


Note: UNOO <ICENTIFIER> can undo a maxirtumr of 16 Levels. 


EXAMPLE? 
Le DO ONE? 
Ze DO TWO FUREVERs 
3e IF <EXPRESSION> THEN 
4s 90 THREEs 
os CASE <EXPRESSION>> 
Ge UNDOs /* SAME AS UNDO THREES «/ 
i UNDO TWO> 
Be END CASE; 
9. END THREE; 
19. END TWO; 
1l. ENC ONE> 


Execution of line 6 transfers control to tine 16. 
Execution of line 7 transfers control to the statement 
following tine Ll. 
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TE STATEMENT 


<IF STATEMENT> 22 <IF CLAUSE> 
“EXECUTABLE STATEMENT> 
1 <iF CLAUSE> 
<EXECUTABLE STATEMENT> 
ELSE <EXECUTABLE STATEMENT> 


<IF CLAUSE> ::= IF <EXPRESSION> THEN 


The <EXPRESSLION> is evaluated.» If the tlowsorder obit of the 


result 1s 2 (Cte@e,r true)» the statement following THEN is 
executed» I[f the lowtorder bit 15 9 Ciees» false)» the statement 
following ELSE Cif present) is executed. If the result of 


the<EXPRESSION> is false> and the ELSE part is omitted» control 
is transferred to the next statement after the <IF STATEME ATO. 


<IF STATEMENT>s may be nestede- The outermost <IF CLAUSE> and the 
corresponding ELSE» if any» are on Nesting Level 0O- The 
EXECUTABLE STATEMENT>s following THEN and ELSE are on Nesting 
level 1. Nesting may be no deeper than 32 levels. 


When using nested <IF STATEMENT>S» the user must maintain 
correspondence between the detimiters THEN and ELSE on each 
Level. The innermost ELSE wilt always be associated with the 


innermost THEN. From this potnt continues an outward progression 
Cieeer» from highest nesting levet to lowest) of THENWELSE 
associatione 


Thus» if an <IF STATEMENT> on Nesting Level N is to have an ELSE 
associated with it» then every <IF STATEMENT> an a nesting Level 
greater than N must also have ELSEs associated with them. If the 
user wishes to execute nothing on a faise conditions then ELSE 
followed by a <NULL STATEMENT> may be used. 
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EXAMPLE: 


Let Erlr E22 E=-3>» and E*4 be <EXPRESSION>s» and tet S22 S=3> 
and S°4 be <EXECUTABLE STATEMENT>s. 


IF E-1 
THEN IF E-2 
THEN IF E=3 
THEN IF E-4 
THEN S743 
ELSE? 
ELSE S-33 
ELSE S-23 


Alt statements here are the IF*THEN“ELSE type» except the first 
IF which has no corresponding ELSE. 
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<CASE STATEMENT se <C ASE HEAD> 
<CASE BOGDY> 
<CASE HEAD> 33= CASE <EXPRESSION> 
<CASE BODY> 3 3= . <EXECUTABLE STATEMENT LIST> 


<CASE ENDING> 


<CASE ENDING> 325 END CASE 


The <EXPRESSTION> serves as an index into the List of <EXECUTABLE 
STATEMENT>s. The statement selected 1s executed» and the others 
ignored. Control is then transferred to the statement following 
the <C4ASE ENDING> untess» of courses the statement causes a 
RETURN or an UNDO to some other Location. 


[If there are N number of statements in the lists» then the range 
of the value of the <EXPRESSION> may be from 0 through Nei. 


The statements in the tist may ce any tegal <EXECUTABLE 
STATEMENT> altowed in SOL. If the user wishes to executa nothing 
in a given case,» the <NULL STATEMENT> is an appropriate 
statement. 
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EFER STATEMENT 


CREFER STATEMENT> 3 c= REFER <KEF VAR> TO <ADDRESS GENERATOR> 


<REF yAR>ss= <IQDENTIFIER> 


The statement wilt make <ADDRESS GENERATOR> become the new 
referent of <REF VAR>. Since an <ADDRESS GENERATOR> in SOL can 
locate any arbitrary area of memory Cusing MAKE.-DESCRIPTOR> 
indexing» etc)» the reference variable may do likewise» but in 
UPL the restriction to a safe subset of <A4DCRESS GENERATOR *s 
also guarantees the safety of reference variables. 


The onty exception to this safety is the classic dangling 


reference orobdlen: Suppose» while executing a lexic Level one 
proceduras that a reference variable declared at texic tevel zero 
is bound to a tocaltly dectared referent. If that reference 


variable is then used after the procedure is exited» its referent 
wilt not exist and an unpredictable piece of data or garbage will 
be accessed. 


Technically» tnis error can only be detected at run timer but its 
occurrence can be precluded altogether by making ae strong 


restriction tn the syntax: the tlexic tevel of the <ADDRESS 
GENE RATOR> may not be greater than that of <REF VAR>. This 
cannot be checked for some <ADDKESS GENERATOR>se notably 


MAKE ~-DESCRIPTOR» but it can be checked in alt cases for UPL. 


An “ADDRESS GENERATOR>> NULL» is available so that reference 
variables way te rebound to suche Testing for NULL is done by 
checking for length of zero. 
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ae PS ae oe oe eee oe ae ee 


<REDUCE STATEMENT> ::= REDUCE <O3JECT REFERENCE> <SETTING 
RESULT REFERENCE PART> UNTIL 
<FIRST OR LAST> <EQ@L UR NEQ GR IN> 
<EXPRESSION> 
<ON EQS_CYCLE PART> 


<OBJECT REFERENCE st= <IDENTIFIER> 


<SETTING RESULT SEFERENCE PART> 32:= <EMPTY> |! SETTING <RESULT 


REFERENCE > 
CRESULT REFERENCE> 2:3= <IDENTIFER> 
<FIRST OR LAST> <s:= FIRST | LAST 
s<EQL CR NEG OR IN> ss EQL 1! NEQ | IN ft = 1 = 


<ON EQS_CYCLE PART> :2:= <EMPTY> 1 ON ENS_CYCLE <EXECUTABLE STATEMENT> 
ON £05 <EXECUTABLE STATEMENT> 


Reduction is a flextbte and efficient means for scanning 
character strings which uses reference variatles rather than 
integers as pointers which select substringse The basic function 
of reduction is to truncate a reference variable from the left 
untit tts first character satisfies some conditione No change is 
actuality made to the data;> the reference vartable ts simply 
redound to a substring of its former referent. For examples the 
original referent of RL is a string "ABSCDEF". 


* A468 C DEF 
«kok & kk ke kk k ok 
ie 
re 


Ri 
After the statement 


REDUCE RL UNTIL FIRST = "OD"; 


is executed the referent of Rl is "DEF. 
48C ODE F 
& ¥ 


kkkkkkk 
* 


ap 


[ 
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If the character string deleted is of interest» another reference 
may be referenced to it by the variation: 


REDUCE RL SETTING R2 UNTIL FIRST = "D0"; 


Starting with K1l*s original referent» “"ABCDEF"*» this Leaves 


* ABCc DE F « 


Rae hkke RRR RE KRkKkREKREE 


* & 
te « 
R2 RL 


thus dividing the original string according to the conditicr 
FIRST = "DO". 


The entire operation may also be done tn reverse (scanning right 
to Left) in wnich case the last character of R1l must satisfy the 
conditian. 


REDUCE RL SETTING R2 UNTIL LAST = "D"5 
results in the new binding 


* ABCOe EF «& 


eka kk KK KE KK KkkKkKKE 


« * 
ma a 
RL R2 


Three types of conditions may be specified: 


= scans for a character which its the same as the specified 
charactere 


/= scans for a character which is different from the 
specified character. 


IN scans for a character whichr when transtated to by the 
specified bit table» yields a aCidid. See CHAR“TABLE for a 
convenient means for specifying ott table constants. 


\ 
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In the first two cases» a single character must be given as a 
scan argunente In the third case» a bit string of length 256 
bits must be given as a table» 


The <EXPRESSION> must evaluate to either CH4RACTERCL) or BITC 8) 
or BITC256) depending upon the condition type. Improper type on 
this <EXPRESSTUON> is the onty possible runstime error froa 
reduction. 


The REDUCE statement terminates when either a character 
satisfying the condition is found or the length of the <OBJECT 
REFERENCE> has been reduced to zero» jie@er» it is NULL. Since the 
fatter termination is often of separate interest its occurrence 
may be detectad using syntax analogous to that for detection of 


special conditions on I/0 statements. The syntax was shown 
atov @e The <EXECUTASLE STATEMENT> is executed if anda only if the 
original reference has teen reduced to NULL. CIlf a#$<RESULT 


REFEREACE> was spacified» it witt then refer to the original 
referent of the <OBJECT REFERENCE>.) 


Frequently» the endof“string code wilt reset the <OBJECT 
REFERENCE> to some new data» operhaps by reading a new card. In 
this case» control returns from the EQS_CYCLE back ta the REDUCE? 
thus effecting scanning over record toundaries without additional 
cading. If the <OBJECT REFERENCE> remains NULL after execution 


of the cOS_CYCLE code» control passes to the fellowing statement 


as usual. These semantics may seem awkward at first». but they 
have the desirable effect of guaranteeing the proper exit 
conditions of a REDUCE statenent "either the condition 1s 


satisfied by the first (Cor tast) character of the <OBJECT 
REFERENCE> or the <OBJECT REFERENCE> -is NULL="regardless' of 
whether or not an E0S_CYCLE has been specified. This principle 
can be violated only by a branch instruction CUNDO> RETURN) in 
the ECS code. - 


If ON_EUS is used tn place of EQS_CYCLE» then control always 
passes to the next statement. 
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4QODTFEY STATEMENTS CELEAR> BUMP» DECREMENT) 


<MODIF yy INSTRUCTION> 3: <CLEAR STATEMENT> 
<SUMP STATEMENT> 


<DECREMENT STATEMENT> 


<CLEAR STATENENT> is CLEAR <ARRAY IDENTIFIER LIST> 


CARRAY IDENTIFIER LIST> ::= <ARRAY TOENTIFTER> 


§ <ARRAY IDENTIFIER>» 
ARRAY IDENTIFIER LISTS 


As the syntax indicatese the <CLEAR STATEMENT> may onty clear 
arraySe If the array has been declared tit or fixed» zeroes are 
moved to each element. If it was declared as characters» tlanks 
are moved to each element. Paged arrays may not be cleared. 


BUMP STATEMENT> es: BUMP <ADDRESS VARI ASLE><MODIFIER> 
ADDRESS VARIABLE> s3= See ADDRESS VARIAGLES 
<MOOIFIER> 3:2: <EMPTY> 


1 BY <EXPRESSIOGN> 


<DECREMENT STATEMENT> 2:2 DECREMENT <ADDRESS VARTABLE><MODIFIER> 


The bump and decrement statements cerform the same functions as 
their counterparts in the <EXPRESSTIGN> CBUMPOR and OECREMENTOR). 
see those sections for specific usage. Since these constructs 
exist as statements in their own rights» and not merely as parts 
of the <E€XPRESSION>» they are included here. 
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ay 
=z 
im 
a 
re 
Se) 
~q 
Pod 
a | 
rm 
= 
rt} 
= 
= 
Vv 

oe 

os 

il 
ve 


The semix~colon is considered to be a statement in its own right. 
It may be used in any construct where the syntax requires that an 
<EXECUTABLE STATEMENT> be present» but the user wishes to execute 
noth ing. It is most commonly used in the <IF STATEMENT> and the 
<CASE STATEMENT>» but may also be functional in the read» writer 
and space statements. Refer to the individual descriptions’ for 
more specific details. 


EX4MPLEs 


CASE <EXPRESSTION>s 

IF <EXPRESSION> THEN; ZCASE 0 
ELSE <STATEMENT>>; 

, ZCASE 1 
DO; ZCASE 2 
<EXECUTASLE STATEMENT LIST> 
END, 

END CASEs 


Notice that the above <CASE STATEMENT> contains three <EXECUTABLE 
STATEMENT>s: An <IF STATEMENT>» a “NULL STATEMENT>» and a <O90 
GRUUP>. lf the vatue of the <EXPRESSION> following CASE is IL» 
then nothing is executed. In additions the - following THEN is 
a “<NULL STATEWMENT>. 
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FILE ATTRIBUTE STATEMENT (CHANGE STATEMENT) 


<FILE ATTRIB 
STATEMENT> 23 


aa 


CHANGE “FILE DESIGNATOR> 
TO CKDYNAMIC FILE ATTRIGUTE LIST>) 


<FILE DESTIGNATOR> 32 := <FILE IDENTIFIERS 
1 <SWITCH FILE IDENTIFIER> (<EXPRESSTIUN>) 


<DYNAMIC FILE 
ATTRIBUTE LIST> 335 <DYNAMIC FILE ATTRISUTE> 
1 <DYNAMIC FILE ATTRIBUTE>» 
<DYNAMIC FILE ATTRIBUTE LIST> 


<CYNAMIC FILE 
ATTRIBUTE> i:= <DYNAMIC MULTI“FILE IDENTIFICATION PART> 
<DYNAMIC FILE IDENTIFICATION PART> 
<DYNAMIC PACK_ID PART> 

<DYNAMIC DEVICE PART> 

<DYNAMIC TRANSLATION PART> 
<DYNAMIC FILE PARITY PART> 
<DYNAMIC VARIABLE RECORD PART> 
<DYNAMIC LOCK PART> 

<DYNAMIC SUFFERS PART> 

<DYNAMIC SAVE FACTOR PART> 
<DYNAMIC RECORD SIZE PART> 
<DYNAMIC RECORDS“PER-BLOCK PART> 
<OYNAMIC KEEL NUNBEX PART> 
<DYNAMIC NUMBER-OF “AREAS PART> 
<DYNAMIC BLOCKS=PER-AREA PART> 
<DYNAMIC ALL-AREASAT-OPEN PART> 
<DYNAMIC AREA@BY“CYLINDER PART> 
<OYNAMIC EU_SPECIAL PART> 

<DYNAMIC EU_LNCREMENTED PART> 
<DYNAMIC USE_INPUT_8LOCKING 
DESIGNATOR PART> 


Ce el ee ee ed 
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<DYNAMIC MULTI-PACK PART> 
<DYNAMIC END“GF-PAGE PART> 
<OYNAMIC OPEN“OPTION PART> 
<DYNAMIC REMOTE“KEY PART> 
<OYNAMIC NUMBER-OF “STATIONS PART> 
<DYNAMIC QUELE"FAMILY “SIZE PART> 
<DYNAMIC FILE TYPE PART> 

<OYNAMIC WORK FILE PART> 

<DYNAMIC LABEL TYPE PART> 
<DYNAMIC INVALID CHARACTER 
REPORTING PART> 

<DYNAMIC OPTIUNAL FILE PART> 
<DYNAMIC SERIAL NUMBER PART> 
<DYNAMIC EXCEPTION MASK PART> 
<DYNAMIC QUEUE SIZE PART> 
<DYNAMIC HEADER PART> 

<DOYNAMIC SOFT TRANSLATE PART> 
<DYNAMIC HOST_NAME PART> 

<DYNAMIC OPEN_ON_GEHALF_OF PART> 


el ee ee ee eee 


The <FILE ATTRIBUTE STATEMENT> altows the user to dynamicattly 
change the attributes of his file during the execution of his 


programe This statement may occur at any point in the programe 
but the change wiil not become effective until the file is 
orenede That is» if the file in question is open when the <FILE 


ATTRIBUTE STATEMENT> 18 executed» then the change wilt not occur 
until the file is closed and reopened. 


Each <ODYNAMIC FILE ATTRISUTE> should be consistent with the 
format and restrictions of its counterpart tlisted in the FILE 
DECLARATIONS.” Exceptions to this are specificaily stated below. 


If a “<OYNAMIC FILE ATTRIBUTE> is omitted» the attribute remains 
as 1t was previously set. 


It should be noted that the following precess is mandatory when 
changing the attributes of an open file which is to be reopened: 


1e Close the file with an attribute which causes space for the 
FIS t QaeabbaLteealonabald £0, S61," ieee» LOCKe RELEASE> etce CIf CLOSE is 
used without attributes», the FISB will uot ce redutlt from 
the FP@» and the attribute will remain unchanged). 

2. Change the destred attributes. 


3e Cpen the file.e. 
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<DYNAMIC MULTI-FILE | 
ICENTIFICATION PART> 2:3 MULTI_FILE_ID <= 

<DYNAMIC MULTI-FILE IDENTIFICATION? 
<CYNAMIC MULTI“FILE IQENTIFICATION> s:= <EXPRESSION> 


<CYNAMIC FILE [TDENTIFICATION PART> ss= FILE_ID s= «DYNAMIC FILE 
IDENTIF ICATION> 


<CYNAMIC FILE ITDENTIFICATION> 22= <EXPRESSION> 


<CYNAMIC PACK_ID PART> ::= PACK_ID := 
<DYNAMIC PACK IDENTIFICATION> 


<CYNAMIC PACK IDENTIFICATION> ::= <EXPRESSION> 
The <EXPRESSICN>s of these four attributes are each assumed to be 
character stringse If they are bits» hcwever» they will be 
converted to characters in the following manner: 

le The bits are left justified. 

2 « Trailing blanks are appended. However,» if the bits 


are not a multiple of 8» then the string will appear 
to be invalid characters. 


EXAMPLE: 
CHANGE F TO C(FILE_ID := aFOEa); 


WILL RESULT IN THE <FILE ITDENTIFICATION> 
BEING EQUAL TD: 


AF GE4) 404) 40404040 40 449 
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<CYNAVIC DEVICE PART> :s= 


<DYNAMIC DEVICE SPECIFIER> 


The lowrtorder 19 obits 


follows (where the variant 
hardware 


DEVICE 


CARD 
TAPE 
TAPE _9 
TAPE 7 
TAPE _PE 
TAPE _NRZ 
DISK 


DISK_PACK 
DISK_FILE 
DISK_PACK_CENTURY 
DISK_PACK_CAELUS 
PRINTER 


PRINTER FORMS 
CARD_READER 
CARD_PUNCH 
CARD_PUNCH FORKS 
PUNC H 

PUNCh FORMS 


READER PUNCH PRINTE 
“"READUR. PUNCH PRINTER FORMS 


PUNC K_PRINTER 

PUNCH PRINTER FORMS 
PAPE R_TAPE_PUNCH 
PAPER_TAPE_PUNCH FURMS 
PAPER_TAPE_READER 
READER_96 
SORTER_READER 
READER_SORTER 
CASSETTE 

REMOTE 

QUEUE 
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NEVICE t= <DOYNAMIC DEVICE SPECIFIER> 
st= <EXPRESSTON> 
of the <EXPRESSTON> must be coded as 
is the high order four bits» and the 
HARDWARE VARIANT 
2k 
27 
28 
25 
26 
24 
17 } = SERIAL 
1 = RANDOA 
16 CS4ME 45 DISK) 
12 CSAME AS DISK) 
15 CSANE AS DISK) 
14 CSAME AS DISK) 
8 G = BACKUP TAPE OR DISK 
i = BACKUP TAPE 
2 = BACKUP DISK 
3 = BACKUP TAPE Or OISK 
4 = HARDWARE ONLY 
5 = BACKUP TAPE ONLY 
6 = BACKUP DISK QALY 
7 = BACKUP TAPE OR OISK 
& 8 + PRINTER VARIANT 
2k 
2 CSAHE AS PRINTER) 
ra CSAME AS PRINTER FORMS) 
2 CSAME AS PRINTER) 
2 CSAME AS PRINTER FORMS) 
CSAME AS PRINTER) 
5 CSAME AS PRINTER FORMS) 
5 CS4H— AS PRINTER) 
5 CSAME AS PRINTER FORMS) 
26 CSAME AS PRINTER) 
20 CS4ME AS PRINTER FORMS) 
6 
19 
1) 
10 
36 
63 
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<DYNAMIC TRANSLATION 
PART> t= 


<CYNAMIC TRANSLATION 
SPECIFIER> t:= 


The lowtorder 3 bits 


translation as follows 


° 
e 


uvO0O = EBCDIC 
OOL = ASCTIT 
210 = BCL 


<CYNAMIC OPEN- 
GPTIUN PART>::= 


<DYNAMIC QPEN= 
OPTION SPECIF IER> 22:5 
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TRANSLATION t= 
<DYNAMI£ TRANSLATION SPECIFIER> 


<EXPRESSTION> 


of the <EXPRESSION> determines’ the 


OPEN_OPTION := 
<DYNAMIC OPEN_OPTION SPECIFIER> 


<EXPRESSION> 


The Lowsorder 12 bits of the expression determine the type of 
open as follows (bits are numbered from left to right within the 


12): 


iad) 
| ce | 
~ 


SNOW EWN Re 


<DYNAMIC PARTTY PART> 


iu ud wou ow We aaa 


FUNCTION CIF 1) 


INPUT 

OUTPUT 

NEW 

PUNCH 

PRINT 

NO_REWIND> INTERPRET 
REVERSE» STACKERS 
LOCK 

LOCK_JUT 


PARITY = <DYNAMIC PARTTY SPECIFIER> 


OURROUGHS CORPORATION 
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<OYNAMIC PARITY 
SPECIFIER> 25 


<DYN4KIC VARI ABLE 
RECORC PART> ss= 


<CYNAMIC VARIABLE 
RECORD SPECIFIER> se: 


<CYNAMIC LOCK PART> :: 


<CYNAMIC LOCK 
SPECIFIER> :: 


<CYNAMIC ALL-AREAS- 
AT-OPEN PART> i: 


<CDYNAMIC ALL~AREAS=~ 
ATTOPEN SPECIFIER> ss 
<OYNAMIC AREAs3Y 
CYLINDER PART> 3: 
<DYNAMIC AREABY=- 
CYLINDER SPECIFIER> 3: 
<DYNAMIC USE_INPUT_ 
PLOCK ING PART> ::= 
<DYNAMIC USE _INPUT_ 
BLOCKING SPECIFIER> ¢: 
<DYNAMIC END“OF = 

PAGE PART> 33:2 
<DYNAMIC END~“OF- 

PAGE SPECIFIER> ss 
<DYNAMIC *ULTI- 

PACK PART>33= 


<CYNAMIC MULTI-~ 
PACK SPECIF IER> 


oo 
i 


<OCYNAMIC REMOTE= 
KEY PART>32:3= 
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<EXPRESSIQN> 


VARIABLE i= 
<OYNAMIC VARIABLE RECORO SPECIFIER> 


<EXPRESSION> 


LOCK :s= <DYNAMIC LOCK SPECIFIER> 
<EXPRESSTON> 


ALL_AREAS_ AT_OPEN c= 
<OYNAMIC ALLAREASSAT@“OPEN SPECIFIER> 


<EXPRESSION 


SREA_BY_CYLINDER := 
<DYNAMIC AREA-BY-CYLINDER SPECIFIER> 


KEXPRESSTION> 


USE_INPUT_BLOCKING == 
<DYNAMIC USE_INPUT_BLOCKING SPECIFIER> 


<EXPRESSION> 


END_OF_PAGE_ACTION := 
<DYNAMTIC END UF“PAGE SPECIFIER> 


<EXPRESSTION> 


MULTI_PACHK s= 
<DYNAMIC MULTI“PACK SPECIFIER> 


<EXPRESSIOQN> 


REMUTE_KEY := 
<DYNAMIC REMOTE-KEY SPECIFIER> 


BURROUGHS COXPORATION 
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<OYNAMIC REMOTE= 
KEY SPECIFIER>: 3= 


<DYNAMIC WORK 
File PART>::= 


<DYNAMIC WORK 
FILE SPECIF IER>::= 


Lo-2¢ 
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<EXPRESSION> 


RORK_FILE = 


PeSe 2212 5405 


<DYNAMIC WORK FILE SPECIFIER> 


<EXPRESSION> 


Gnly the towwcrder bit of each of the above <expression>s is used 


to determine 

are as follows: 
PARITY 
VARTASLE 
LOCK 
ALL_AREAS_AT_OPEN 
AREA_SY_CYLINDER 


USE_INPUT_BLOCKING 


CNC _OF_PAGE_ACTION ~ 


MUL TI_PACK 


REMOTE KEY 


WORK_FILE 


<CYNAPMIC EU_SPECIAL 
PART> <i: 


<CYNAMIC EU_SPECZAL 
SPECIFIER> 225 


aol 


the value of the attribute. 


The code definitions 


ON MULTIPLE DISK PACKS 


0 = ODD 

1 = EVEN 

0 = FIXED 

1 = VARIABLE 

0 = NOT LOCKED 

1 = LOCKEO 

O = ALLOCATE AREAS AS NEEDED 

lL = ALLGCATE ALL SPACE AT OPEN TIME 

0 = PUT AREA ANYWHERE ON DISK 

1 = ONE AREA PER CYLINDER AT BEGINNING 

Q = TAKE ATTRISUTES FROM FILE DECLARATION 

lL = TAKE ATIRIQUTES FROM DISK FILE HEADER 
See FILE ATIRIBUTES 

0 = NO DETECTION OF END-OF -PAGE 

1 = BRANCH TO <EQF PART> OF «WRITE 
STATEMENT> AT END CF PAGE ON 
PRINTER FILE 

1 = PLACE FILE 

0 = PLACE FILE ON SINGLE DISK PACK 

lL = REMOTE KEY ££ PRESENT ON ALL READS 
AND WRITES TO THE FILE 

0 = REMOTE KEY LS NOT PRESENT 

1 = INSERT JO3 NUMBER IN FILE IOENTIFIER 

0 = LEAVE FILE IOENTIFIER ALOAE 

FULSPECIAL := 


<DYNAMIC EU_SPECIAL 
EULSPECIAL s= 
<OYNAMIC EU_SPECIAL 
EVLORIVE = 
<DYNAMIC EU SPECIAL 


<EXPRESSION> 


SPECIFIER> 
SPECIFTER> 


SPECIFIER> 
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<DYNAMIC EU_DRIVE 
SPECIFIER> 7:2 <EXPRESSION> 


<OYNAMIC EU_ 
INCREMENTED PART> 33= EU_INCREMENTED = 
<DYNAMIC EU_INCREMENTED SPECIFIER> 
1 EULINCREMENTED = 
<OYNAMIC EU_INCREMNENTED SPECIFIER>>» 
EU_INCREMENT := 
<DYNAMIC EU_INCREMENT SPECIFIER> 


<CYNAMIC EU_INCREMENTED 
SPECIFIER> i: <EXPRESSTON> 


<CYNAMIC EU_ 
INCREMENT SPECTIFIER> <EXPRESSION> 


The lowsorder bit of the EU_SPECIAL and EU_INCREMENTED specifiers 


serves to indicate whether or not the attribute is set (C=0ff>» 
1=On). If the attribute is off» then inclusion of the EU_DRIVE 
ang CU_INCREMENT specifiers is unnecessary. 


If these attributes are set ones then the drive and increment 


parts should be inctuded» and should conform to the 
specifications in the FILE DECLARATIONS. [f omitted» the 
<OYNAMIC EU_DRIVE SPECIFIER> is not changed. If the <DOYNAHIC 


EU_LINCKEMENT SPECIFIER> has never been set Cieee» it is OG)» then 
it is set to ones otherwiser it too remains unchanged. 
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<CYNAMIC BUFFERS PART> 


<CYNAMIC NUMBER 
GF BUFFERS> 3:3s= 


<DYNAMIC SAVE 
FACTOR PART> i3= 


li 


<CDYNAMIC SAVE FACTOR> 3: 


<CYNAWMIC RECORD 
SIZE PART> i33= 


<CYNAMIC RECORD SIZE> 3:: 


<CYNAPIC RECORDS 
PER@BLOCK PART> 335 


<OYNAMIC RECORDS- 
PER=BLOCK> ss= 


~ €DYN4AMIC REEL 
NUMBER PART> ss= 


<CYNAMIC REEL NUMBER> <3 
<OYNAMIC NUMBER“OF- 
AREAS PART> 3:2 
<CYNAMIC NUMBER= 
CFTAREAS> 325 

CDYNAPFIC BLOCKS*PER- 
AREA PART> ss 
<CYNAMIC BLOCKS=PER 
AREA> s::= 

<CYNAMIC QUEUE<FAMILY= 
SIZE PART>:3:= 

<DYNAMIC QUEUE- 
FAMILY“SIZE>3 = 
<OYNAMIC NUMBERSOF- 
STATICNS PART>:s 3= 


<CYNAMIC NUM3ER TOF 
STATIONS SPECIFIER>s:= 
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BUFFERS 3s= <OYNAMIC NUMBER OF SUFFERS> 
<EXPRESSION> 


SAVE 3= <DYNAMIC SAVE FACTOR> 


<EXPRESSION> 


RECURD_SIZE := <DOYNANIC RECORD SIZE> 


<EXPRESSION> 


RECORDS _PER_ BLOCK <= 
<DYNAMIC RECORDSPER-BLOCK> 


<EXPRESSION> 


REEL t= <DYNAMIC REEL NUMSER> 


<EXPRESSION> 


NUMBER_OF _AREAS 3= 
<OYNAMIC NUMBER“CF “AREAS> 


<EXPRESSTON> 


BLOCKS_PER_AREA := 
<DYNAMIC BLOCKS=-PER=AREA> 


<EXPRESSTON> 


QUEUE_FAMILY_SIZE := 
<DYNAMIC QUEUCE-F AMILY=SIZE> 


<EXPRESSION> 


NUMBER_OF_STATIONS := 
<DYNAMIC NUMBER-OF “STATIONS SPECIF IER> 


<EXPRESSIOQN> 
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The above <EXPRESSION>s return a kit string which should te 
consistent with the formats and restrictions tisted in the FILE 
DECLARATIONS_ 


<CYNAMIC FILE TYPE PART>::= FILE_TYPE := 
<DYNAMIC FILE TYPE SPECIFIER> 


<DvMAMIC FiLE TYPE SPECIFIER> s::= <EXPRESSION> 


The value of the expression determines the fite type: 


VALUE TYPE 
J DATA 
r INTERPRETER 
3 CODE 
9 DATA 
L2 INTRINSIC 


<DYNAMIC LABEL 
TYPE PART>:3= LABEL_TYPE <== 
<DYNAMIC LASEL TYPE SPECIFIER> 


<OYNAMIC LABEL 
TYPE SPECIFIER>:s5= <EXPRESSION> 


The value of the expression determines the Label type. 


VALUE TYRE 
0 ANSII 
L UNLABELED 


BURROUGHS STANDARD 


<DYNAMIC INVALID 


CHARACTER REPORTING> 33= INVALID CHARACTERS 2= 
<DYNAMIC INVALID CHARACTER REPORT 
TYPE> 


<DYNAMIC INVALID CHARACTER 
REPORTING TYPE> ::= <EXPRESSION> 
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The value of the expression determines the type of reporting: 


VALUE  ~=TYPE 

0 Report att tines containing invalid 
character se 

1 Report alt lines containing invalid 
characters and ther stop program. 

2 Report once that the file contains 
invalid characters. 

3 Don't report that the file contains 


invalid characters. 


<DYNAMIC OPTIONAL 
FILE PART> ::= OPTIONAL s= <EXPRESSTION> 


The lowwmorder bit of the exoression determines whether or not the 
file may be optional. If the value is 1» the file may be 
optionals if O» it must be presente 


<CYNAMIC SERT AL 


NUMBER PART> = SERIAL 3= <EXPRESSTON> 


The expression should generate a 6"character stringe each of the 
characters of which area decimal digit. This number will be 
used as the tape serial number. 


<CYNAMIC EXCEPTION MASK 
PART> i: EXCEPTION _MASK := <EXPRESSIQN> 


The Low order 24 bits of the vatue cf the expression will be used 
as the EXCEPTION MASK. See <EXCEPTION MASK PART> under <FILE 


CECLARATION STATEMENT> in Section 6. 
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<DYNAMIC QUEUE SIZE | 
PART> <= QUEUE _MAX_MESSAGES t= <EXPRESSION> 


Sets size for queue files. 
<OYNAMIC HEADER PART> = REMOTE HEADERS == <EXPRESSION> 
Sets headers tooltean for remote files. 


<DYN4MIC SOFT 
TRANSLATE PART> 3s TRANSLATE := <EXPRESSION> 
{ TRANSLATE_FILE s= <EXPRESSION> 


TRANSLATE sets a boolean» turning the translation oftion on or 
off white TRANSLATE_FILE changes the file~id of the translate 
table file. 

<DYNAMIC HOST_NAHE PART>::= HOST_NAMEs= <EXPRESSION> 

Sets Host name for BNA. 

<CYNAMIC OPEN_ON_ BEHALF _OF 

PART>3:3:= OPEN_ON_BEHALF_OF?= <EXPRESSION> 


Turns the OPEN_ON_BEHALF_OF Soolean on or off. 
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STGP STATEWENT 


<STOP STATEMENT> 3 STOP 
{! STOP <EXPRESSION> 


The <STOP STATEMENT> is a communicate to the NCP that the prosram 
has finished. It should not be confused with FINI which is the 
final statement in the program. 


STOP <EXPRESSION> is intended for use by the compilers only. The 
<EXPRESSION> communicates the number of syntax errors to the MCP. 
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<ZiP STATEMENT> 3:= ZIP <EXPRESSION> 


The <ZIP STATEMENT> altows the user to pass control instructions 
to the MCP. The <EXPRESSION> should generate a character string 
whose vatue is a valid MCP control statement as defined in the 
H1790 Software Operational Guide. 
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Cr 

SEARCH_DLRECTORY STATEMENT N O ov behnd af 

<SEARCH STATEMENT> 335 <SEARCH PART>s <QN FILE PART> 

<SEARCH PART> ::= SEARCH_DIRECTORY C<SEARCH OBJECT>> 
<SEARCH RESULT>»<SEARCH RESULT MODE> 

<SEARCH OBJECT> <ss= <ADDRESS GENERATOR> 

<SEARCH RESULT> ::= <ADDRESS GENERATOR> 

<SEARCH RESULT MODE> :3s= BIT § CHARACTER 

<ON FILE PART> 3: <EMPTY> § ON FILE_MISSIAG <EXECUTABLE 


STATEMEN T> 

1 ON FILE_LOCKED <EXECUTAISLE STATEMENT> 

1 ON FILE MISSING <EXECUTABLE STATEMENT>; 
ON FILE LOCKED <EXECUTABLE STATEMENT> 


1 ON FILE LOCKED <EXECUTABLE STATEMENT>; 
ON FILE MISSING <EXECUTA8LE STATEMENT> 


The <SEARCH STATEMENT> attows the user to extract certain 


information contained in the disk file header specified by the 
<SEARCH GBJECT>. 


The <SEARCH GBJECT> is expected to be 30 characters in tlength 
where the first 16 characters are the pack identificatione the 
second 10 characters are the multisfile identification» and the 


thirc 15 are the file identification. File names less than 10 
characters must be lLeft-justified in their respective fields with 
trailing blanks appended. If onty one file name exists» that 


name should be teftrjustified in the mutltictfile identification 
Field» and the file identification shoutd be tlank. 


The <SEARCH RESULT> snecifies the receiving field and should be 
366 bits long if bit mode is specified» or 59 tytes if character 
mode is specified. 


The information is returned in the following format: 


ACCESS-DE LO =@00Ee 
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01 FILE_HEADER_FORMAT> 


92 OQOPEN_TYPE BIT €24)» 2% CHARACTER (CL) 
Q2 NO_USERS BIT €24)»5 % CHARACTER (2) 
O02 RECORD_SIZE BIT €24)% % CHARACTER (4) 
02 RECIROS_PER_8LOCK BIT €24)5 % CHARACTER (4) 
02 EOQF_POINTER BIT €24)»% % CHARACTER (8) 
O02 SEGHENTS_PER_AREA HIT €24)5» % CHARACTER C8) 
02 USER_OPEN_OUTPUT BIT €24)» % CHARACTER €1) 
92 FILE_TYPE BIT €24)»%» % CHARACTER (2) 
92 PERMANENT_FLAG BIT €24)» % CHARACTER (2) 
02 S8LOCKS_PER_AREA BIT €24)5 % CHARACTER (6) 
02 AREAS_REQUESTED BIT €24)5 % CHARACTER (3) 
02 AREA COUNTER BIT €24)»5 % CHARACTER (3) 
02 SAVE_FACTOR BIT €24)» % CHARACTER (3) 
902 CREATION_DATE BIT €24)» % CHARACTER (5) 
02 LAST_ACCESS_DATE BIT €24)5 % CHARACTER (C5) 
Note: This format may be subject to change. 


The <FILE MISSING PART> and <FILE LOCKED PART> allon the user to 
specify the course of action should either of these conditions 
arise@.e 
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READ FILE _HEACER> WRITE FILE _HEADER 


= — —_ 2 eS EE AEE EN ED SS ES ED ED Se NS Oe 


<ACCESS FILE HEADER 
STATEMENT> 32 <ACCESS FILE HEADER PART>; 
1 <ACCESS FILE HEADER PART>; 
<FILE MISSING PART> 
1 <ACCESS FILE HEADER PART>;s 
<FILE LOCKED P4RT> 
1 <ACCESS FILE HEADER PART>; 
<FILE MISSING P4RT> 
«FILE LOCKED PART> 


<ACCESS FILE HEADER 
PART> 335 READ_FILE_HEADER 
C<FILE NAME>» <DESTINATION FIELD>) 
! WRITE_FILE_HEADER 
(<FILE NAME>» <SQURCE FIELD>) 


<FILE NAME> 3 3= <ADDRESS GENERATOR > 
<CESTINATION FIELO> :3= <ADORESS GENERATOR> 
<SOURCE FIELD> ::= <ADDRESS GENERATOR> 
<FILE MISSING PART> 25 ON FILE_MISSING <EXECUTABLE STATEMENT> 


<FILE LOCKED PART> 3; 


= ON FILE _ LOCKED <EXECUTABLE STATEMENT> 


The <ACCESS FILE HEADER STATEMENT> ts intended for use in systems 
programs only. It enables the programmer to either read or write 
a file header. 


The “FILE NAME> is expected to be a 30*character field where the 
first 19 characters are the PACK_ID» the second 19 characters are 
the MULTI-“-FILE IDENTIFICATION and the third 10-6 the FILE 
TCENTIFICATION. File names tess than iC characters are 
Left"justified in their respective fieldse If only one file name 
exists» it is Leftwjustified in the multictfile identification, 
and the file identification should be set to thanks. 


The <SOuace FIELD> or <DESTINATION FITELD> specifies» 
respectivelys the sending or receiving field» and is expected to 
be 576 to 4329 bits in Length depending upon the number of areas 
allocated. Information is passed tin the file header format. 
Refer to the 681700 MCP Manual for specifics. 
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The <FILE MISSING P&ART> and <FILE LOCKED PART> enable the 
programmer to specify the course of action should either of these 
conditions arisee 


Note that extreme caution is advised when writing a file header. 
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~€4RRAY PAGE TYPE 
STATEMENT> cs= CARRAY PAGE TYPE DESIGNATOR> 
C<PAGED ARRAY NAME>» <PAGE NUMBER>) 


<ARRAY PAGE TYPE 
DESIGNATOR> ::= MAKE _READ_ONLY 
1 MAKE READ_WRITE 


' €PAGEB ARRAY NAME> ssa <LDENTIFIER> 


<PAGE NUMSER> i:= <EXPRESSTIOQN> 


The <ARRAY PAGE TYPE STATEMENT> allows the user to mark certain 
paged array pages as READ-ONLY. When this is done» a page will 
not be written out to disk every time tt ts overlaid. 


MAKE READ WRITE attows the user to change information on a paged 


array» and to have that array written on cisk when  1t is 
overlaid. It is only necessary to specify MAKE_READ_WRITE after 


a MAKE _READ_ONLY specification. 


[t is the programmer's responstbitity to ensure that the 
information in a page marked READTONLY is not changed. In 
additionre the user is responsiodle for guaranteeing correct page 
nugaber specifications. There is no syntax check for either. 


EXAMPLE: 


DECLARE PAGED (32) P €1924) BITC30)» Ti FIXED 
Tl := “13 
DC FOREVER; 
MAKE_READ_ONLY CP» BUMP TL)3 
IF Tl = 312 THEN UNDOS 
END; 


MAKE READ WRITE (Pr 0)5 
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<COROUTINE STATEMENT>: 3= <COROUTINE ENTRY STATEMENT> 

1 <CGROUTINE EXIT STATEMENT> 
<COROUTINE 
ENTRY STATEMENT>: 3= ENTER _COROUTINE 

C<COROUTINE TABLE SPECIFIER>) 

<COROUTINE 
TABLE SPECIFIER> <3:= <ADDRESS GENER ATOR> 
<COROUTINE 


EXIT STATENENT> 3:3 


The 


EXIT_CORQUTINE 
C<CORCUTINE TABLE SPECIFIER>) 


<CORGUTINE TAGLE SPECIFIER> associated with ENTER_COROUTINE 


and EXIT_CURQUTINE ts assumed to describe a tabie with the 
following format: 


DECLARE 
01 TABLE | 
02 NUMBER_OF_ENTRIES BITC4) 
202 ENTRY_ADDRESS BIIC32) 
02 PPS_COPY(16) 31TC32) 


» 
a 


ENTER_COROUTINE:S The <COROQUTINE TABLE SPECIFIER> is assumed 
to have the format described above. The current code 
address is pushed on to the Program Pointer Stack. The 
number of elements of PPS.COPY that is specified by 
NUMBER_OF_ENTRIES is pushed onto the Program Pointer Stack. 
The address of the next instruction is taken from 
ENTRY_ADORESS. 


EXIT _COCROUTINE: The <COROUTINE TABLE SPECIFIER> is assumea 


to describe a table of the format given above. The current 
nesting Level is stored in NUMBER_OF_ENTRIES. The current 
code address is stored in ENTRY_ADDRESS. The number (Cas 


specified by NUMBER_OF_ENTRIES) of entries on the top of the 
Program Pointer Stack is copied to PPS_COPYC(C) through 
PPS_COPYCNUMBER_OF_ENTRIES@<1). If NUMBER_OF_ENTRIES is O-» 
then nothing is copied. An UNDO is performed» using 
NUNBER_OF_ENTRIES as the number of entries on top of the 
Program Pointer Stack. 
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Note: Upon first execution of ENTER_COROUTINE» the table must 


already be set upe The easiest way to accoaplish this 1s to make 
the first executable statement in the coroutine to be entered an 
EXIT-CUROUTINE statemente The first entrance to the corocutine is 
then accomplished by a call statement. 


Note: This is not a general coroutine mechanisaet"ieeer It is not 
symmetric. The routine executing the ENTER _CCRCUTINE is a master 
to the slave routine which contains the EXIT_COGROGUTINE'S. 


Note: EXIT _COROUTINE can only appear within procedures with no 
parameters and no tocal datas ie@er, those procedures which do 
not change the Control Stack. 


EXAMPLE : 
DECLARE I FIXED: will display "090003" (1) 
DECLARE TALE BITC4+17*32)3 "990005" (2) 
PROCEDURE SLAVES "000008" (3) 
EXIT_COROUTINECTASLE)S XSETS UP TABLE ecocgi9" (4) 
DC FOREVER: 
BUMP I BY 23 . 
DISPLAY DECIMALCI+6)3 7 
EXIT_COROUTINECTABLE)3 ZRESETS TABLE ‘ 
ENDS | 7 
END SLAVE; 
PROCEDURE MASTERS "S#en™ (2n) 
SLAVES ZCALL FOR SETUP "Sene3" C2neL) 
I := 03 : 


OC FOREVER; 
BUMP I 3Y 3; 
DISPLAY DECIMALCI>6);3 
ENTER_COROUTINECTABLE)* ZUSES TABLE 


END? 
END MASTER, 
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EXECUTETPROCECURE STATEMENT 


<EXE CUTE “PROCEDURE 
STATEMENT> 2:= <NON“TYPED PROCEQURE DESIGNATOR> 


CNON“TYPED PROCEDURE 
DESIGNATOR> :3:= <NON“TYPED PROCEDURE IOENTIF IER> 
<ACTUAL PARAMETER PART> 


<NON=-TYPED PROCEDURE 
ICENTIFIER> 325 <IDENTIFIER> 


CACTUAL PARAMETER PART> 32> <EMPTY> 
1 C<ACTUAL PARAMETER LIST>) 


<ACTUAL PARAMETER LIST> ::= <ACTUAL PARAMNETER> 
1 <ACTUAL PARAMETER>» 


<ACTUAL PARAMETER LIST> 


“ACTUAL PARAMETER> ss <EXPRESSTON> 
{ <ARRAY DESIGNATOR> 
<ARRAY CESIGNATOR> 332 <ARRAY IDENTIFIER> 
A non"typed procedures 1e@e» a procedure which performs a 


function and does not return a value» is tnvoked through an 
SCEXE CUTE TPROCEDURE STATEMENT>. The name of the procedure is 
followed ty its parameters enclosed in parens. Refer to the 
section ADDRESS AND VALUE PARAMETERS for information concerning 
passing parameters. 


For a description of the invocation of typed procedures» see 
VALUE VARIABLES. 


BURROUGHS CORPORATION 
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<EXE CUTE “FUNCTION 
STATENENT> 335 


<FUNCTION DESIGNATGR> ::= 


10-36 

COMPANY CONFIDENTIAL 

B1800/B1700 SDL CBNF Version) CF) 
PeSe 2212 5405 


<FUNCTION DESIGNATOR> 


<ACCESS FILE INFORMATION DESIGNATOR> 
<CHANGE STACK SIZE DESIGNATOR> 
<CHARACTER FILL DESIGNATOR> 
<COMMUNICATE DESIGNATOR> 
<COMPILE-CARO-INFO DESIGNATOR> 
<DC_INITIATE_I0 DESIGNATOR> 
<DEBLANK DESIGNATUR> 
<DISABLE_INTERRUPTS DESIGNATOR> 
<DUMP DESIGNATOR> 
<DUMP=FOR=ANALYSIS DESIGNATOR> 
<ENABLE_INTERRUPTS DESIGNATOR> 
<ERROR COMMUNICATE DESIGNATOR> 
<EXECUTE DESIGNATOR> 

<FETCH DESIGNATOR> 

«FIND DUPLICATE CHARACTERS DESIGNATOR> 
<FREEZE~PROGRAM DESIGNATOR> 
<GROW DESIGNATOR> 

<HALT DESIGNATOR> 

<HARDWARE MONITOR DESIGNATOR> 
<INITIALIZE_VECTOR DESIGNATOR> 
<MESSAGE COUNT DESIGNATOR> 
«MONITOR DESIGNATOR> 

<OVERLAY DESIGNATOR> 

CREAN CASSETTE DESIGNATOR> 
<ACCESS“FP8 DESIGNATOR> 
<REFER_ADORESS DESIGNATOR> 
<REFER_ LENGTH DESIGNATCR> 
<REFER_TYPE DESIGNATOR> 
<REINSTATE DESIGNATOR> 
<RESTORE DESIGNATOR> 

<REVERSE DESIGNATOR> 

<SAVE DESIGAATOR> 

<SAVE_STATE DESIGNATOR> 

<SORT DESIGNATOR> 

<SORT_MERGE OESIGNATOR> 

“SORT _SWAP DESIGNATOR> 
<THAW_PROGRAM CESIGNATCR> 
<THREAD_VECTOR DESIGNATOR> 
<TRACE DESIGNATOR> 

<TRANSLATE DESIGNATOR> 
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a A a —s os ap a ne OD OE OO ee — ae 


<A4CCESS FILE INFORMATION 


CESIGNATOR> 32= ACCESS_FILE_INFORMATION C(<FILE DESIGNATOR>» 
<RETURN TyYPE>» <DESTINATIOGN> 
<FILE DESIGNATOR> :3= <FILE IDENTIFIER> 
1! <SWITCH FILE I[DENTIFIER> ( <EXPRESSION>) 
<RETURN TYPE> s3= BIT / CHARACTER 
<CESTINATION> 322 <ADDRESS GENERATOR> 


The <ACCESS FILE INFORMATION DESIGNATOR> returns the endrof=file 
pointer and the device type from the FIB of the specified file to 
the specified destination. 


The information may be returned as either bit or character. The 
format is as follows: 


91 DESTINATION _ FIELD» 
02 EQF_POINTER BI 
Bi 


4s % CHARACTERCB) 
C2 DEVICE_TYPE 3 


vA CHAR ACTERC2) 


To insure that the FI8 existse this communicate should onty be 
used cn open files. 


CHANGE _ STACK SIZES 


A OE OE AD ES OP ED EE ED Oh SO A ae 


<CHANGE STACK 

SIZES DESTIGNATOR> :3= CHANGE _STACK_ SIZES C<VSSIZE>> 
CNSSIZE>» <CSSIZE>» <ESSIZE>»> 
<PPSSIZE>» <DYNAMIC SIZE>) 


<VSSIZE> is= <NUMBER> 
<NSSIZE> t2= <NUMBER> 
<CSSIZE> :3= . <NUMBER> 
<ESSIZE> ss= CNUMBER> 
<PPSSIZE> :2= <NUMBER> 


<DYNAMIC SIZE> 22= <NUMBER> 
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This statement ts restricted to Lexic Level Zero of programs with 
no global data. Also» due to technical tncompatibititiesr it nay 
not be used in a program that invokes profiling» timing» or 
monitoring facilities. Note that the parameters are in an order 
corresponding to the order of the stacks in memory. 


The result of the execution of the statement is to change’ the 
program's stack sizes to the values givene 


<CHARACTER FILL 

DESTIGNATOR> ss= CHARACTER _FILL C<OF DESTINATION>>» 
<OF SOURCE>) 

<OF ODESTINATION> ss= <ADDRESS GENERATOR > 

<OF SOURCE> 3: := <EXPRESSTON> 


The hightorder 8 bits of the <CF SOQURCE> wilt be spread 
throughout the <CF DESTINATION>. 


COMMUNICATE 
<COMMUNICATE CESIGNATOR>:2= COMMUNICATE (<EXPRESSION>) 


The <EXPRESSION> is expected to be a valid communicate message. 
This ts intended onty for experimental testing of communicates. 


— om 2. am ee oP ane oan ae ae 


<COMPILE-CARD= 
INFO DESIGNATOR>: 3= COMPILE_CARD_INFO 
C<CCI OESTINATION FIELD>) 


<CCI CESTINATION FIELD>22= <A4DDRESS GENERATOR> 


BURROUGHS CORPORATION 


COMPUTER 


SYSTEMS GROUP 


SANTA BARBARA PLANT 


This 


format: 


furction is 


QBJECT NAME 
EXECUTE TYPE COECIMAL) 


returned 
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intended for use by the compilers only. The 
information on the compile card is 


the following 


CHARACTER € 30) 
CHARACTER (€2) 


QL EXECUTE 

02 COMPILE AND GO 

03 COMPILE FOR SYNTAX 

04 COMPILE TO LIBRARY 

05 COMPILE AND SAVe . 

06 GO P4RT OF COMPILE AND GO 

O07 GO P4ART OF COMPILE AND SAVE 
COMPILER PACK ITOENTIFIER CHARACTER C190) 
COMPILER INTERPRETER NAME CHARACTER €30) 
COMPILER INTRINSIC NAME CHARACTER €10) 
COMPILER PRIO#ITY COECIMAL) CHARACTER (2) 
COMPILER SESSION NUMBER CHARACTER (6) 
COMPILER JOB NUMBER CDECIMAL) CHARACTER (6) 
COMPILER 15T AND 2ND NAMES OF RUNNING PROGRAM CHARACTER €29) 
COMPILER CHARGE NUMBER CHARACTER (7) 
FILLER CHARACTER €1) 
COMPILATION DATE AND TIME COMPILED BIT (36) 
FILLER . BIIC4) 
COMPILER USERCODE CHARACTER (10) 
COMPILER PASSWORD CHARACTER (10) 
COMPILER PARENT JOB NUMBER CHARACTER €)4) 
COMPILER PARENT QUEUE IDENTIFIER CHARACTER €2%) 
COMPILER LOG SPO CHARACTER (1) 

CC_INITLATE 19 


<OC_INITIATE_10 


CESIGNATOR> : DC_INITITATE_IOQ (<PORT>» <CHANNEL >» 
<I0 DESC ADDRESS> 

CPURT> ::= <EXPRESSION> 

<CHANNEL> 2 2= <E XPRESSION> 

<I0 DESC ADDRESS> 3:25 <EXPRESSION> 


See MCP documentation for OC_INITIATE_I0 Ccommunicate verb 49). 
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<CEBLANK DESIGNATOR>: = DEBLANK CKFIRST CHARACTER>) 

<FIRST CHARACTER> ss= <IQDENTIFIER> 


The <sFIRST CHARACTER> is a simpte identifier which describes the 
first character to he examined. Deblank repeatedly increments 
the adoress field of the descriptcr for <FIRST CHARACTER> until 
<FIRST CHARACTER> describes a nonmblank character. 


QISABLE_ INTERRUPTS 


<CISASLE_INTERRUPTS 
DESIGNATOR> 2:2 DISABLE_INTERRUPTS 


For MCP use onlye 


The <DISABLE INTERRUPTS DESIGNATOR> suppresses att interrupts 
until an <ENABLE INTERRUPTS DESIGNATGR> is encounterede 


Note that this construct cannot be executed by normal state 
programse 


DUMP 
<DUMP DESIGNATOR> s:s= DUMP 
The HCP will create a dumpfile>r and program execution will 


cont inue after the dumpe 
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DUMP_FOR ANALYSIS 


<QCUMPFOR= 
ANAL YSIS DESIGNATOR>: := QUMP_ FOR_ANALYSIS 


Execution of this function will cause a dumpfile to be created 
and execution to continue. 


ee SD ae ED Sew ee SD OS ED a et EE ee 


CENABLE_INTERRUPTS 
DESTGNATOR> ::= ENABLE_INTERRUPTS 


For MCP use only. 


The <ENABLE INTERRUPTS CESIGNATOR> causes the MCP to return to 
the normal interrupt "processing mode after the <DISA@LE 
INTERRUPTS DESIGNATOR> has changed that mode» See above. 


Note that this construct cannot be executed by a normal state 
program. 


ERROR COMMUNICATE 


<ERROR COMMUNICATE 
DESIGNATOR> 3:= ERROR COMMUNICATE (<EXPRESSION>) 


The value of the expression should be in the fotlowirg form: 


2 BITS 6 8ITS 16 BITS 24 BITS 


: Q ° N > 0 Py 9) > 


where N is the error numoer. 
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fhe value of the expression wilt be put on the Evaluation Stack 
as a descrirtors and an MCP communicate will te performed. 


If N = 29 then the MCP will use the L6-bit field as a bit length 
and the 24~*bit field as a base relative bit address of the error 
message to be printed on the SPQ. Otherwise» N ais the 
MCP-defined error message number. 


See <EXECUTE OPERATOR ODESIGNATOR> in Section 8. 


FeTeu 

<FETCH DESIGNATOR> ::= <FETCH SPECIFIER> (<I/0 REFERENCE 
ADDRESS>» <PORT» CHANNEL ACDORESS>> 
RESULT DESCRIPTOR ADDRESS>) 

<FETCH SPECIFIER>::= FETCH 1 FETCH_AND_SAVE 

<I1/0 REFERENCE 

ADDRESS> ::= <EXPRESSION> 

<POR T> CHANNEL 

ACDRESS> 3:2 <ADDRESS GENERATOR> 

<ADDRESS GENERATOUR> 2:5 See AUDRESS GENERATORS 


<RESULT DESCRIPTOR 
ADDRESS> :3= <ADDRESS GENERATOR > 


The <FETCH DESIGNATOR> fetches the result of an I/0 operation. 
{If there is a high priority interrupt» then that interrupt will 
be reported. Otherwise» if the <I/0 REFERENCE ADDRESS> is 
non=zeroe then only an interrupt on an I/U descriptor with the 
reference address the same as the <I/0 REFERENCE ADDRESS> will be 
reported. The PORT (3 BITS) and CHANNEL (C€4& &1TS) of the 
interruct are stored from Left to right tin the lLowrtorder 7 bits 
of <PORT» CHANNEL ADDRESS>. The I/0 RESULT DESCRIPTOR REFERENCE 
ADDRESS is stored in the lLowtmorder 24 bits of the <RESULT 
DESCRIPTOR ADCRESS>. If there were no interrupts» then these two 
fields witt be zero. FETCH_AND_SAVE is obsolete as of the 5_1 
release. 
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<FIND DUPLICATE CHARACTERS 

DESIGNATOR> ::= FIND _DUPLICATE_CHARACTERS 
C<FDC TEXT> » <DUPLICATE COUNT>» 
<DUPLICATE CHARACTER> » <NON=DUPLICATE 


TEXT>) 
<FDC TEXT> t= <SIMPLE IDENTIFIER> 
<CUPLICATE COUNT> 3:5 <ADDRESS GENERATOR> 
<CUPLICATE CHARACTER> 325 | <ADDRESS GENERATOR > 


<NONWOUPLICSTE TEXT> 3:5 <SIMPLE IDENTIFIER > 


The text to be scanned for contiquaus duplicate characters 1s 
described initially by <FOC TEXT>. The text will be scanned 


until three or more contiguous dupticates are found. Upon 
return» <FDC TEXT>*s descriptor wilt be reduced ta describe the 
text beyond the duplicates <NON“DUPLICATE TEXT>*s descriptor 


will be madified toa describe the norntduplicate text that was 
scanneds <DUPLICATE COUNT> will contain the number of duplicate 
char acterss and <DUPLICATE CHARACTER> wilt describe the 
duplicate character. 


Oe 


<FREEZE“PROGRAH 
DESIGNATOR> s3= FREEZE PROGRAM 


Execution of this function will prevent the pragrar from being 
moved in memory or from being rolled out of memory. 


GROW 


<GROW DESTGNATOR> 3:5 GROW (<PAGED ARRAY IDENTIFIER>» 
S<EXPRESSION> ) 


This statement dynamically increases the array tound of the 
specified paged array by the vatue of the exoression. The 
expression may not be negative Cthe bound may not te decreased) 
and the resuiting array bound must not be targer than 16277215. 
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HALT 

<HALT DESIGNATOR> 235 HALT CKEXPRESSION>) 


The <HALT DESIGNATOR> causes the value of the <EXPRESSION> to be 


moved to the M-Machine T-Register. If the value is longer than 
24 bitse only the towworder 24 bits are movece If the value is 
less than 24 bits» the value is right-justified and teading 


zeroes are addede. 


After the value is movede an MN-Machine halt is executed. 


EXAMPLES: 


DECLARE X BIT(24)3 
HALT (X: tHEX_SEQUENCE_NUMBER )3 


HALT (CSUBSIT CHEX_SEQUENCE NUMBER» O» 24))3 


<HARDWARE MONITOR 
DESIGNATOR> 3 3= HARDWARE MONITOR C<EXPRESSIOQN>) 


The monitor microtopcode will be executed using the tlowctorder 3 
bits of the <EXPRESSION> as its operand. 


<INITIALIZE_vECTOR 
CESIGNATOR> ¢:= INITIALIZE_VECTOR C<TABLE ADDRESS>) 


<TABLE ADDRESS> 22= ADDRESS GENERATOR> 


For use by SORT only. 
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The <TABLE ADDRESS> points to the table centaining the vector 
address» the vector tevelw*l address» the key table address» and 
the vector Limit address. 


<MESSAGE_COUNT 
DESIGNATOR> 3:= MESSAGE_COUNT CFILE DESIGNATOR>, 
<ADDRESS GENER ATOR> 


<FILE DESIGNATOR> 33= <FILE ITDENTIFIER> 
1 <SWITCH FILE ([0> C<EXPRESSTON>) 


The <FILE SPECIFIER> is assumed to be a queue file and the numbder 
of messages in the queue will be returned as a fixed number into 
<ADDRESS GENERATOR>. If <FILE SPECIFIER> tis a queue file famity» 
an array of values» one for each fasily member» wilt be returned 
into <ADDRESS GENERATOR>. 


MONITOR 


see Appendix VIII: SOL MONITORING FACILITY 


<CVERLAY DESTGNATORK> iss OVERLAY CCKEXPRESSION>) 


The <EXPRESSION> witt be used as an index into the interpreter 
dictionary by the interpreter swapdere The interpreter 
dict tionary entry will specify the action to be taken. See the 
81709 MCP Reference Manual. 
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REAQ_CASSETTE 


<READ CASSETTE 


DESIGNATOR> 235 READ CASSETTE C<DESTINATION SPECIF IER» 
<HASH_TOTAL SPELCIFIER>» <RESULT SPECIFIER>) 

<CESTINATION SPECIF IER>:3= CADDRESS GENERATOR> 

HASH TOTAL SPECIFIER>: s= HASH _ TOTAL 


1 NO_HASH_TOTAL 


RESULT SPECIFIER>2 i= <ADDRESS GENERATOR> 


The “READ CASSETTE OESIGNATOR> causes the number. of bits 
specified hy the <DESTINATION SPECIFIER> to be read fron the 
console cassette to the address specified by that <DESTINATION 
SPECIFIER>. This number of bits must be equal to the record size 
minus the hashwtotal size Cif it is present) of 16 bits. The 
S<HASH TOTAL SPECIFIER> indicates whether or not a hash-total is 
expected at the end af the record. 


A value of 90 or 1 witl be teft in the <¢RESULT SPECIFIER> 
indicating that the HASH TOTAL was $incorrect or correct» 
respectively. 


READ FPS» WRITE _FP8 


—_ — — a oe an wo 


<ACC ESS “FPS 
DESIGNATOR> 3: 3= S<ACCESS“FPB IDENTIFIER> 
(<FILE SPECIFIER>» 
<SOURCE OR DESTINATION FIELO>) 


<ACCESS“F PB IfENTIFIER> ::= READ_FPB 1 WRITE_FPS 


<FILE SPECIFIER> i: <FILE DESIGNATOR> 
! <FILE NUMBER> 


<FILE DESTGNATOR> i: <FILE IDENTIFIER> 


{ <SWITCH FILE IDENTIFIER> C<EXPRESSION>) 


<FILE NUMBER> 33= <EXPRESSION> 


<SGOURCE OR DESTINATION 
FIELD> ::= <ADDRESS GENER ATOR> 


<ADDRESS GENERATOR> 335 See ADDRESS GENERATORS 
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The Fite Parameter Block of the file indicated by the <FILE 
SPECIFIER> is read =intoe or written from the <SQOURCE OR 
DESTINATION FIELD>. . 


Note that the <SQURCE UR DESTINATION FIELD> should be 1440 bits 
in Length. 


<ACCESS OVERLAY 
DESTGNATOGR> 33s <ACCESS OVERLAY ITDENTIFIER>C<EXPRESSTON>) 


<ACCESS OVERLAY 
ICENTIFIER> 2:5 READ_OVERLAY / WRITE_GVERLAY 


The value of the <EXPRESSION> is assumed to be a 76-bit field 
with the following format from highctorder to lLowtorder: 


BITS CONTENTS 


y es EU = 9 (Not used) 
4-27 Base relative beginning address 
28°51 Base relative ending address 
52°75 Disk address (Relative to user area) 


The area described by the beginning and ending addresses is reac 
to» cr written from the user disk at the (Cretative) DISK ADDRESS 
given. 


REFER ADDRESS 


<REFER_ADDRISS 
DEST GNATGR> 22= REFER _4DDRESE (C<REF VAR>» <EXPRESSION>) 


The value of <EXPRESSIUN> is stored in the address fart cf <KEF 
VAR>. 
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A 
ry) 
my 
ry 
nm 
x 
\ 
~~ 
om 


= REFER_LENGTH C«REF VAR>» <EXPRESSION>) 


The vatue of <EXPRESSION> is stored in the tength part of <REF 
VAR>. . 


<REF ER_TYPE_ 
DESIGNATUR>:: 


REFER _ TYPE C<REF V4R>» <EXPRESSION>) 
The value of <EXPRESSIGN> is stored in the type part of <REF 
VARK>. 

REENSTATE 


CREINSTATE DESIGNATOR> <c:= REINSTATE C<REINS TATED PROGRAM>) 


CRETINSTATED PROGRAN> 3:5 <ADDRESS GENERATOR> 


The sREINSTATEO PROGRAM> is assumed to describe the field 
RS_COMMUNICATE_MSG_ PTR of RS_NUCLEUS of the precgram to be 
reinstated (See description of the RUN STRUCTURE in BL70G MCP 
Reference Manual). 


The reinstating program's M-Machine state is stored in the 
appropriate parts of its RS_NUCLEUS. The address of the 
reinstating program’s RS_NUCLEUS is stored in the reinstated 
program's RS _COMMUNICATE_LR. 


The program whose RS_COMMUNICATE_MSG_PTR is descrited by 
<REINSTATED PROGRAM> ts then reinstated. 
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RestORe 

RESTORE DESTIGNATOR> is= RESTORE C<ADDRESE GENERATOR LIST>) 


<ADDRESS GENERATOR 
LIST> :s= See ADDRESS GENERATORS 


The <RESTORE DESIGNATOR> assigns the current value on the top of 
the Evaluation Stack to each sADDRESS GENERATOR>>» from right to 
left» in the List. This operator is used in conjunction with the 
<SAVE DESIGNATOR>. See above. 


EXAMPLE: 


SAVE CAeBeCl)s 


RESTORE CAsH#eC); 
NOTE THAT RESTORE C4»BeC) IT5 THE SAME AS: 
RESTORE (C)> 


RESTORE (B)s 
RESTORE CA); 


REVERSE STORE 


<REVERSE STORE 


DESIGNATOR> ::= REVERSE_STORE 
C<CADDRESS GENERATOR LIST>»<EXPRESSION>) 


<ADDRESS GENERATIJUR 
LIST> ::= See ADDRESS GENERATURS 


The REVERSE _ STORE OPERATION has the effect of evaluating multiple 
store operations from left to right instead of from right to 
Left. See THE REPLACE OPERATORS. 


For example: 


REVERSE_STORE (CLoeMeNr Pr Xi )> 


has the same effect ass 
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w~enear 
46 88 08 ee 


hou wou 


With the REVERSE_STORE» however» the descriptcr for each <ADDRESS 
GENERATOR> in the List is determined onty once. 


Note: 
REVERSE STORE CLehHoN»Po Xt ds 
is not the same as 
Ls=M3=N2=P3=Xel> 


SAVE 
<SAVE DESIGNATOR> :2= SAVE (SEXPRESSION LIST>) 


Each of the <EXPRESSIGN>s» from Left to right» will be evaluated, 
and the vatue of each left on the Evatuation Stack Cand Vatue 
Stack» tf necessary). See “RESTORE DESIGNATOR>. 


<SAVE STATE DESIGNAT9IR> 2:2= SAVE_STATE 


The state of the interpreter witt be stored in RS~M.~MACHINE (CSee 
8179C MCP Reference Nanual)-. Execution will then continue. 


SORT 


<SORT DESIGNATOR> si: SORT C<SORT INFORMATIGN TABLE SPECIFIER>, 
<SORT KEY TABLE SPECIFIER>» 
<INPUT FILE DESIGNATOR>, 
<QUTPUT FILE DESIGNATOR> <TRANSLATE 
FILE DESIGNATOR>) 


<SURT INFORMATION TABLE 
SPECIFIER> sts CANDRESS GENERATOR> 
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<SORT KEY TABLE . 
SPECIFIER> 35 <ADDRESS GENERATOR > 


<INPUT FILE DESIGNATOR i: <FILE DESIGNATOR> 

TRANSLATE FILE 

CESIGNATCOR> ::= <EMPTY> 1 © <FILE DESIGNATOR> 
<QUTPUT FILE 

DESIGNATOR> s3= «FILE DESIGNATOR> 

“FILE DESIGNATOR ss= <FILE IDENTIFIER> 


1 <SWITCH FILE IDENTIFIER> C<EXPRESSTION>) 


The <SCRT DESIGNATOR> is a communicate which requests the 
transfer of records from the tnput file to the output file 
accoracing ‘to the SORT key table. The SORT information table 
includes codes for SORT type>» hardware availables» and other 
opti onse 


For formatting specifications of the SORT information table, 
refer to SORT documentation. 


SURT_ MERGE 


<SORT_MERGE DESIGNATOR> SORT_MERGE 

C<SORT INFORMATION TABLE SPECIFIER>>» 
<SORT KEY TABLE SPECIFIER>> 

<INPUT TABLE SPECIFIER>> 

<QUTPUT FILE DESIGNATOR> 

<TRANSLATE FILE DESIGNATOR>) 


<INPUT TABLE SPECIFIER> <ANDRESS GENERATOR? 


oe 
ae 
Mi 


See SORT STATEMENT for other parameters, and SGRT documentation 
for table formats and semanticse 
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SOURT_SWAP 

<SORT_SWAP DESIGNATOR> 332 SORT_SWAP CKRECORD 1>+%<RECCRD 2>) 

<REC ORD L> 325 <ADDRESS GENERATOR> 


CRECORD 2> s:= <ADDRESS GENER ATOR> 


While the <SORT SWAP DESIGNATOR> is irtended to be used by the 
SORT» its application is such that it may be generally useful. 


This cesignator allows the user to Swap or exchange two records 
in memory without allocating a third area for storing one of the 
records. 


Specifically» the record pcinted to by “RECORD 1L> is exchanged 
with the record pointed to by <RECORD 2>. 


Note: The interpreter being used must contain the SORTF_SWAP 
operator. 


<THAW PROGR AW 
CESIGNATOR>23= THAW_PROGR AM 


Execution of this function will allow the program to be rotted 
out of memory. [t will not force it to be rolled out. 


ee ee ee ee 


<THREAD_VECTOR 
CESIGNATOR> ::= THREAD_VECTOR (<TABLE ADDRESS>»<INDEX>) 


<TABLE ADDRESS> ::= <ADDRESS GENER ATOR> 


<INDEX> i35 <EXPRESSTON> 
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For use by sort only. 


The <TABLE ADDRESS> points to the table containing the 


inforwation descrited under INITIALIZE VECTOR. The <INDEX> 
provides the offset from the beginning of the vector to the next 


record to be used for comparisone 


TRACE 
<TRACE DESIGNATOR> :2= TRACE 1 NOTRACE | TRACE C(<EXPRESSION>) 


The TRACE witt cause the SOL instructions of the normat state 
program to be traced on the line printer. NOTRACE wilt turn off 
the trace. The trace will only be effective when the program is 
run with an SOL trace interpreter. 


TRACE CCEXPRESSION>) provides greater control of the tracing to 
be done. The lowtorder 19 bits are used in the foltiowing way 
Cnumbering of the 10 is from teft te right): 


Bit Use 


9 Trace ail commands except those which modify data or 
change the program fgointer stack. Normal state only. 


1 Trace commands which modify data items (Ceege» CLR» 
SNDL» etce)- Normal state only. 


2 Trace commands which change the program pointer stack 
Ceege» IF THe CASE» EXIT» etcr).~ Normal state only. 


3 Niot used. 
476 Same as 972» but for MCP. Several NCP routines 
~ CGETSPACE> FORGETSPACE>s and others) will not be 
traced. 
7-9 Same aS G-2» but will trace thase MCP routines not 


traced by 46. 


Note that TRACECQ38C3) 1s the same as TRACE> white TRACECO) is 
the same as NOTRACE. 
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TRANSLATE 


<TRANSLATE CESIGNATOR> 


ae 
se 
n 


TRANSLATE C<TRANSLATE 


<TRANSLATE TABLE> » <TRANSLATE TABLE 
ITEM SIZE> » <TRANSLATE RESULT>) 


<TRANSLATE SOURCE> 3:3 <ADDRESS GENERATOR> 
<TRANSLATE SOURCE ITEM 

SIZE> <s::= <EXPRESSION> 
<TRANSLATE TABPLE> 33: <EXPRESSION> 
<TRANSLATE TABLE ITEM 

SIZE> s3:= <EXPRESSIUON> 
<TRANSLATE RESULT> s::= <ADDRESS GENERATOR> 


<TRANSLATE SOURCE> is assumed to consist. of items of size 
<TRANSLATE SQURCE [TEM SIZE>. Each of the items itn <TRANSLATE 
TABLE> and <TRANSLATE RESULT> are assumed to be of size 
<TRANSLATE TABLE ITEM SIZE>. Each of the source items is used to 
subscript into the table to obtain an item which is placed into 
the result field in the position correspondina to the position of 
the original item obtained from source. This process continues 
until the source is exhausted»e the result is full» or an error 
occurs. 


If either source or resutt is not a multicrle of its respective 
item sizer then the translaticn of the Last item is undefinede 


Both source and tatle item sizes must te less than or equal to 
24 The table must be Large enough to accomedate att items in 
sour cee If either of these is violated» a runcttime error will 
occure 
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APPENCIX J: RESERVED AND SPECIAL WORDS 


The following is a List of reserved words in SDL» complete as of 
Mayr 1978. These words may only be used as reserved wordse 
ACCEPT AND AS 

BASE BIT BUMP BY 

CASE CAT CHANGE CHARACTER CLEAR CLOSE 

DECLARE DECREMENT ODEFINE ODOISPLAY ODO DUMMY DYNAMIC 

ELSE END ECL ENTER_COROUTINE EXIT _COROUTINE EXGR 

FILE FILLER FINI FIXED FORMAL FORMAL_VALUE FURWARD FROM 
GEa GTR 

IF INTRINSIC 

LEQ LOCK LSS 

MOD 

NEQ NOT 

OF ON OR OPEN 


PAGED PROCEDURE 
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READ READ_FILE_HEADER RECORD REDUCE REFER REFERENCE REMAPS 

RETURN RETURN_AND_ENABLE_INTERRUPTS 

SEARCH_OIRECTORY SEEK SEGMENT SEGMENT_PAGE SKIP SPACE STUP 
SUBSIT SUBSTR SWITCH_FILE 

THEN TO 

UNDO USE 

VARY ING 

WRITE WRITE_FILE_HEADER 


zip 


Lin3 


BURROUGHS COKPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 3180C/817090 SNL CBNF Version) (CF) 
SANTA BARBARA PLANT PeSe 2212 5405 


The following is a list of special words in SDL» complete as of 
December», 1976.6 Each special word has a particular meaning»e 
however jit may be used as an identifier. In that case» it loses 
its special significance in SOL. 

ACCESS_FILE_INFORMATION 

BASc REGISTER BINARY 

CHANGE_STACK_ SIZES CHARACTER_FILL CHAR_TABLE COMMUNICATE 


COMPILE_CARD_INFOQ COMMUNICATE_WITH_GiSHO CONTROL STACK_BITS 
CONTROL _STACK_ TOP CONSOLE_SWITCHES CONV CONVERT 


DATA _ ADDRESS DATE OC_LINITIATE_10 OEBLANK DECIMAL 


DELIMITED_TOKEN ‘DESCRIPTOR ODISABLE_INTERRUPTS DISPATCH 
DISFLAY_3ASE OMS_CALL CUMP ODUMP_FOR_ANALYSIS DYNAMIC_MEMORY_BASE . 


ENABLE_IATERRUPTS ERROR COMMUNICATE EVALUATION STACK _TUP 
EXECUTE | 

FETCH FETCH COMMUNICATE_MSG_PTR FETCH _AND_SAVE 
F IND_DUPLICATE_CHARACTERS FREEZE_PROGRAM 

GROW 

HALT HARDWARE MONITOR HASH_CODE HASH_UNPACK 

INITIALIZE_VECTOR INTERROGATE_INTERRUPT_STATUS 

LENGTH  LIMIT_REGISTER LOCATION 

MAKE DESCRIPTOR M4ANKE_READ_ONLY MAKE_READ_WRITE MESSAGE_COUNT 
M_MEM_SIZE MONITOR_SET  MONITOR_RESET MONITOR_CHANGE MONITOR_SET 

NAME _OF_DAY N4&ME_STACK_TOP NDL_OP NEXT_ITEM NEXT_TOKEN NOTRACE 
NULL 

OVERLAY 

PARITY_ADDGESS  PREVIGUS_ITE® PROGRAM_SWITCHES 

READ_CASSETTE READ_FP8 RESD_QVERLAY REINSTATE STORE 


RE VERSE_STORE 
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SAVE SAVE_STATE  SEARCH_LINKED_LIST SEARCH_SERIAL_LIST S_MEM_SIZE 


SEARCH_SOL_STACKS SORT SORT_DELETE SORT_FILE_FIXUP SORT_MERGE 
SORT_RETURN SORT_SEARCH SORT _STEP_DOWN SORT_SWAP SORT_UNBLOCK 
SWAP SPO_INPUT_PRESENT 

THAW PROGRAM THREAD_VECTOR TIME TRACE TRANSLATE 
VALUE_DESCRIPTOR 
WAIT WRITE_FPB WRITE_OVERLAY 


X_ADD X_SUB X_MUL X_DIV  X_MOD 


BURROUGHS CORPORATION 
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APPENCIX IL? SOL CONTROL CARD OPTIONS 


Every SDL control card must have a $ in column one. Columns 
(3-8G may be used as a sequence field. Note that once an option 


has been turned on 


<CONTROL CARD? 3:32 


<CONTROL STATEMENT> 3:3 


<CUNTROL OPTIGN LIST> 


<CONTROL OPTION> ss= 


<CONTROL OPTICN WORD> 


<CEBUC OPTLON> s:ec= 
“<NUMBER> 325 


SEQUENCE OPTION> s3i= 


<SCQUENCE PARAMETER S> 


ee 
ooo™ 


(of f)» 
explicitly turned off Can). 


—_ Pe a ok oe oh hie oe 


—_ <—-_ mab web aw ee SP em em om ek ee oe 


it witl regain on Coff) until 


& <CONTROL STATEMENT> 


<CONTROL OPTION LIST> 
<VOID OPTION> 


<CONTROL OPTION> 
<CONTROL OGPTION> 


<CONTROL OPTION LIST> 


<CONTROL GPTION WIRD> 
NO <CONTROL OPTION WORD> 


DEBUG OPTION> 


<SEQUENCE OPTICN> 
<PAGE OPTION> 

“MERGE GPTION> 

<STACK SIZE LIST> 
INTERPRETER OPTION> 
<INTRINSIC OPTION> 
<RECOMPILE OPTION> 
<LISRARY PACK OPTIGN> 


LIST § LISTALL 1 SINGLE 

SGL 1 DOUBLE 1! CODE 

CONTROL | NEW ft SUPPRESS 

XMAP L CHECK |! PROFILE ! PPROFILE 
DETATL 1 AMPERSAND 1 NO_DUPLICATES 
NO_SOURCE # MONITOR 

XREF § XREF_CNLY 1 EXPAND_DEFINES 
SIZE | FORMAL_CHECK 
TIME_PROCEDURES 1! TIME _8LOCKS 
PASS_END | CRROR_FILE 

FREEZE 1 NEST_PROCEDURE TIMES 
ADVISORY | LOCKI 

USEDOTS | CONVERTOOTS 

TIME_MCP 1 UNDER SCORES_IN_FILE_NAMES 


DEBUG <NUMBER> 
<UNSIGNED INTEGER» @ OR LESS DIGITS> 


NO SEQ 
SEQ <SEQUENCE PARAMETERS> 


<BASE> 
<INCREMENT> 


EUKRROUGHS COX PORATION 
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<INCREMENT> 3s 


<PAGE OPTIGN> s:= 
<MERGE OPTIQN> :s= 


<STACK SiZE LIST> 


a 
oe 
lt 


<STACK SI2c 
DESIGNATOR> :3= 


<STACK CESIGNATOR> 33: 


<STACK SIZE> 
<VOGID OPTIQN> s3:t= 


<TERMINATING SEQUENCE 
FIEL D> , 


na am 
eeqoco 


<INTERPRETER OPTION> 235 
CINTERPRETER NAME> 325 
<INTRINSIC OPTION> 


CINTRINSIC FAMILY 
NAME > 


<FILE FAMILY NAME> 322 


<LIGRARY PACK OPTION> 


eo 
4.4 


<RECOMPILE OPTION>: s= 
! 
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<BASE> <INCREMENT> 
<NUMBER> 

+ <NUMBER> 

PAGE 
MERGE 
<STACK 


<STACK 
<STACK 


SIZE DESIGNATOR> 
SIZE DESIGNATOR> 
SIZE LEST> 


STACK DESIGNATOR> <STACK SIZE> 


VSSIZE | 
CSSiZet 1 


NSSIZE | 
PPSSIZE 1! 


ESSIZE 
DYNAMICSIZE 


<NUMBER> 

VOID <TERMINATING SEQUENCE FIELD> 
<EMPTY> 

<EXACTLY & CHARACTERS> 
INTERPRETER <INTERPRETER NAME> 
<EXTERNAL FILE NAME> 

INTRINSIC 

S<INTRINSIC FAMILY NAME> 
<IDENTIFIER> € <CHARACTER STRING> 
<FILE FAMILY NAME> 


<MULTIFILE [D> 
<PACK_ID/MULTIFILE ID> 


<CHAR STRING> 
<CHAR STRING> 
LIBRARY_PACK <PACK_ID> 


CREATE_MASTER 
RECOMPILE 
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Notes Default is OFF except where specified as ON. 


ACVISORY Prints advisory messages on the Listing. 
Default ts ON. 


AMPERSAND Prints those ampersand cards which are examined. 
Default ts ON. 


CHECK The merged source will be checked for sequence 
errorse Default is ON. Sequence checking ts 
done after any resequencing due to a $SEQ is 
complete. 


CODE Prints generated code. 

CONTROL Prints control cards. 

CONVERTDOTS Converts dots ".e” to underscores "_" when used 
as separators in identifiers. The conversion 
Will be reflected in att compiler output 


including the tisting and NEWSOURCE files. 


RECORD constructs may not be used with dot 
separators in identifiers. 


CREATE_MASTER See Appendix VII_ 

CSSIZE Control Stack size. 

DEBUG Compiler debug use onlye 

DETAIL Prints expansion of define invocations. 

DOUSLE Double spaces listing when printing. 

DYNAMICSIZE Amcunt of wemory used for paged array pagese 
ERROR_F ILE A separate error file will be produced 


containing onty errors and warnings and the 
source images to which they apply. 


ESSIZE Evaluation Stack sizee 


EXPAND _DEFINES Causes define expansions to be crossereferenced 
Cused in conjunction with XXEF or XREF_ONLY). 


FREE ZE The FREEZE bit will be set in the grogram's FBP>» 
preventing the program from being rolled out 
during executione 


BURROUGHS CORPURATION 
COMPUTER SYSTEMS GROUP 


FORMAL .CHECK 
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Procedure actual parameters and values returned 
from tyoed procedures witt be checked 


INTERPRETER 


INTRINSIC 
LIBRARY_PACK 
LIst 


LISTALL 


LOCK I 


MERGE 


MONITOR 
NEST_PROCE- 

DURE _TIMES 
NEW 


NO 


NO_LOUPLICATES 


NO_SOURCE 


respectively against their corresponding’ format 


parameters and procedure formal tyres. 


Changes the interpreter name. 


Changes the family names of intrinsics to be 
used. : 

Assumes all tibrary files are on the _ pack 
specified. 

Lists the source input which was compiled. NO 


LIST witt also turn off LISTALL. ODefault is ON. 
Lists att S20L source input (Cwhether or not 
conditionally excluded). LISTALL turns on List», 
but NO LISTALL will not turn off liste 


Internediate work files witt be locked into the 
disk directory as they are created. (See 
Anpendix [Vs RUNNING THE COMPILER). 


The primary source file is on tape or disk which 
will have the cards» from the card reader» 
merged with ite 


See Appendix VIII: SOL MONITOR FACILITY 


See Appendix [TI. 
Creates a new source file. 
atlows It) wilt 


NG preceding an option (which 
turn that aption off. 


identifier will not be checked 

The programmer must guarantee 
that ‘there are no duplicates before using this 
options {t will reduce compile time for targe 
programs only. 


Newly declared 
for uniqueness» 


Program source images will not be saved» therety 
Shortening the comoiter work file. No source 
Listing will be possitle when this option is 
specified. This shculd be used with tong 
programs only. 
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NSSIZE Name Stack size. 

PAGE Page eject if Listing. 

P4SS_END The total elapsed time and the number of errors 
will be printed at the end of each passe 

PPSSIZE Program Pointer Stack size. 

RECOMPILE See Appendix VII. 


RECOMPILE_TINES 


SEQ 


SINGLE (SGL) 


SIZE 


SUPPRES5 


TIME _8LOCKS 
TIME PROCEDURES 


TIME MCP 


The start and stop times of each of the phases 
of the “bind™ oass of a CREATE_MASTER or 
RECOMPILE will be printed on the Listing. 


Resequences new source file usirg base and 
increment specifiede Default increment is 1909» 
default base is the sequence number of the $S5E64 
carde {f the $SEQ card has no seq number the 
default base is 199. 


Single spaces listing when printinc. Default is 
ON. 


Prints segment sizes by mame at end of compile. 


Suppresses warning MeSSa4geSe To suppress 
sequence errcr messages» turn off CHECK. 


See Appendix III. 


UNDER SCORES_IN_FILE_NAMES 


USEDOTS 


voip 


Provides capability to convert internal file 
names with dots (+) as separators. This option 
should be used with the CONVERTOOTS option. 


Allows the use of dots» sae | as separators in 


identifiers. Otherwise» underscoress "_" will 
be required (See COAVERTDOTS). 


The VOID option wilt void records in the primary 
file which have sequence fields less than or 
equal to the <TERMINATING SEQUENCE FIELD>. If 
the field is omitted» onty the record with the 
sequence nuaber corresponding to the VOID card 
sequence nunter will tbe deleted. The VOIO 
option will not delete images tn a secondary 
(card) source file. 


EK 


EA 
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VSSTIZE 


Value Stack sizes 


WORKING_SET_SYTES 


XMAP 


XRF 


XREF _GNLY 


Specifies the working set size of the object 
program as used by NCPI. This option has no 
effect on programs to be run under MCPII. 


Creates an extended ccde map file for post 
compitation analysis» The name of the file 
passed to SOL/XMAP is "XMAPMMDDYY/<TIME>">» where 
MM is the month» DO is the day of the month» YY 
is the year» and <TIME> is the time of day of 
the compile. 


Produces a cross*reference tisting o f the 
program. The name of the file passed to 
SOL/XREF is "XREFHNDOYY/<TIME>"» where NM is the 
months DD is the day cf the month» YY 1s the 
year» and <TIME> is the time of day of the 
compile. 


Produces a cross*reference listing and then 
terminates the comrilaticn. The name of the 
file passed . to SDL/XREF_ONLY is 
"XREFMMDDVY/<TIME>"» where MM is the monthe ODD 
is the day of the month» YY is the yeare and 
€TIME> is the time of day of the compile. 


Note: Atl control cards may use & in column 1 in place of 


$e 


Those control cards with 8 in column 1 will be 


permanently placed in a new source file whenever one 
is made. They may also be conditionally included or 
excluded during compilation. 


s0e/(X REF FLLe PFILE NAME XREF...... 
ceive PRINT NANE ont pat Finanne 


Spe/Kr 


Cus PRintee NOt 


Pr File MAPFILe NATE XMKP ..- 
Cc ud pot fO Ham 
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APPENCIX Lil: PROGRAMMING OPTIMIZATION 


The following control card options can be useful to the 
programmer who wishes to determine the most time consuming 
part(s) of his program. The purpose of these control options is 


to point out the parts of the program which are the most time 
consuming and/or heavily used. 


PROFILE 

PPROF ILE Establishes a dynamic array» each element of 
which iS a caunter for one proceduree The index 
number for each procedure appears in the tisting 
following the <PROCEDURE ICENTIFIER>. The value 
of the counter wilt reflect the number of 
entrances ta the procedure in question. Those 
with the highest counters should be investigated 
With the PROFILE ootion. 

PROF ILE Establishes a dynamic array» each element of 
which is a ccunter for one tranchirg operation 
C€<990 GROLP>>» <IF STATEMENT>» or <CASE 


STATEMENT>). The index into the array wilt 
appear in the listing following the statement in 


question. Those branches with the highest 
counter values are the Ooranches most heavily 
usede 


a a a a —_ wee — 2. 


S<HARDWARE MONITOR 
DESIGNATOR> 232 HARDWARE MONITOR C<KEXPRESSTION>) 


The 81790 is equipped with a hardware monitor which may Ce 
manually wired to suit the needs of the programmer. The device 
can be useful as ae timer or a counter to monitor progras 
efficiency. 


The lLowvtorder 3 bDits of the <EXPRESSION> is used as the towrtorder 
8 oits of the Mtinstruction monitor. For wiring instructions of 
the hardware device see Computer Performance Monitor II: System 
Summary Manual. 
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A highwtresolution tiner and the means to access it are available 
on select 381720"sertes SystemsSe This timer is accessed directly 
by the interpreter» bypassing the MCP and its inherent effects an 
timing accuracy. 


Timing of orocedures and/or blocks is inittated by the use of 


control options: BIIME_ PROCEDURES and $TIME_ELUCKS. The 
appearance of either of these options turns it ons the 
appearance of the option preceded ty NO turns it off. The 


setting of the option at the tise of parsing of the procedure 
head or of the block head (00 and DO FOREVER» in the case of OD 
groups) determines whether or not the attendant body of code is 
to be timed. 


For each item to be timed» a timer cell number is assitgnede Upon 
entrance to the body of code» the timer value is subtracted from 
the proper cell and upon exit» the timer vatue is added to the 
cell. Procedures are not timed around calls cf other procedures» 
so that procedure times reflect only the elapsec time spent 
within that procedure. Block timing works the same way» t1.2@e» 
times of nested otocks are added to those of enclosing blocks» 
but times of procedures which are called are not inctuded in the 
times of the calling procedure or blocks. The times of calted 
procedures WILL be added to those of the caller by specifying the 
option NEST _PRICEDURE_TIMES. . 


At the time of executions an intrinsic will be invoked which wilt 
print the timing cells ordered by value. The contents of these 


cells are the number of microseconds spent in the timed bodies of 
code. If the job terminates abnormally» then DUMP/ANALYZER will 


print the contents of the tiaing celts. 


[It is intended that the timing functions wilt be used in the 
following manner: First» alt the procedures ir a program will be 
time de Upon isolation of the “hot™ procedurese block timings 
will be requested for those Blocks contained in these procedures. 
If both block and procedure timings are requested for targe 
programs» an  tnordinate amount of memory will be atlocated for 
the timing cells» which are 48 bits in Length. 


This scheme is usabpl? by the MCP. The Br-option STIME_MCP must he 
included at compile time. The timing cells are printed with a 


SPO message. 


BURROUGHS CORPORATION 
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There are two basic deck setup formats. 


is to te saved on tape 
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They are: 


or 


4. The primary source file is on cards. 
“SYSTEM COMPILE CARD> 
& <FILE EQUATE CARO FOR FILE NEWSOURCE> 
DATA CARDS 
« $ NEW 
¢5D0L PROGRAM> 
FINI 
END 
* If the primary source file 
disk» these cards must be included. 
Be The priwary source file is on disk. 


<SYSTEM COMPILE CARD> 


<FILE EQUATE CARD FOR FILE SOQURCE> 


& <FILE EQUATE CARD FOR FILE NEWSOURCE> 


DATA CARDS 
$f wERGE 
«* $§ NEW 
<PATCHES TO SDL PROGRAM> 
ENO 
* If the merged file is to be saved» 
be included.» 
Note: Refer to the 81700 MCP 
the exact format of the 
cardSe 


afk FILE NAMES 


compile 


these cards must 


Software Operational Guide for 


and file equate 


CARDS Card input fite (€8¢ or 9G byte records) 

SOURCE Primary source file if & MERGE is used (89 
or 90 byte records) 

NEWSOURCE Updated source file if & NEW ts used €94 


byte records) 
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LINE Line printer file 
ERRGR.LINE Separate error file (produced when 


$SERROR.-FILE is used) 


XREF .LINE Lists file for XREF. 4ttows fite equation 
in the compiler. 


XMAP.LIWNE : Lists file for XMA4P. Allows file equation 
in the compiler 


PF ILE [Intermediate file produced by the prewpass-e 

IF ILE Intermediate file produced cy the first 
PaSSe 

IMAGE.FILE Source image file produced ty the pre~pass-e 


The compiler will notice if the operator gives it SPO input 
during any of the first three passes (SDLP» SDLI+ SOL2Z). SPC 
input will be ignored during SDOL3>, the partial recompilation 
bindere The operator may give any of the following commands in 
the 4X messages 


STATUS The compiler wilt display the current pass 
executing» sequence number being compiled» and 
errors detected so fare 


L-ESt The compiter will begin Listing itn whatever 
pass is currently executing. 


NC LIST Stops tlisting in whatever pass is currently 
executinge 


PASS_END Sets option to display a ressage as each pass 
complatese 


NQ PASS_END resets PASS_END option. 
LOCKI The compiler wilt tock intermediate files as 


they are created and wilt teck any that have 
already been created but not released. The 


14-3 


BURROUGHS CCRPORATION 7 COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP BL8G0/B81700 SOL CBNF Version) CF) 
SANTA BARBARA PLANT P.S. 2212 5495 


intermediate files may then be used to restart 
the compiler if necessary (see below) or be 


analyzed with SDL/IA Cnot released outside the 
company). 


NC LGCKI Intermediate files not already locked will not 
be tocked. 


ed 


If intermediate files have been saved (see LOCKEI above) and 4a 
compile is terminated itn SOL1-> SD0L2» or SDL3 due to machine 
failures» it may be restarted in SOLL or SOL2 to avoid repeating 
the entire compiles Program switch zero is normally set to zero 
indicating a fult compile. Tt may te set on the compile cards 
however» to one Cindicating an SDLL restart) or two Cindicating 
an SOL2 restart). SDL3 cannot be restarted; instead the 
operator must restart SOL2. 


The compiler wilt expect the following files when restarted: 


SOLL PFILE 

IMAGE.F ILE 

MASTER/ IWF Cif CREATE_MASTER compile) 
SOL2 IF ILE 

IMAGE.FILE 


MASTER/INF Cif CREATE_MASTER compile) 


Files will have been saved under these names if Ca) the operator 
entered a LOCKI message or (b) $LOCKI appeared on a compiter 
control card. 
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The conditional compilation facility allows the user to 


selectively compile blocks of code without the necessity of 
physically adding or removing recordse 


<CONDITIONAL INCLUSION> records are always written to anew file 


Cif one is created)» whether or not they are compiled. If 
conditional compilation records are to be printed with the source 
Listings then LISTALL must appear on the 6-card. If not 


specified» onty those conditionat compilation records which were 
compiled are orinted. 


The GNF for the conditional comcilation is as follows: 


<CONDITIGNAL INCLUSION> 2:= <SET STATEMENT> 
“RESET STATEMENT> 
<PAGE STATEMENT> 
<LIBRARY STATEMENT> 


<IF BLOCK> 
“SET STATEAMENT> se SET <SET SYMBOL LIST> 
<SET SYMBOL LIST> ::= <SET SYMBOL> 


1 <SET SYMBOL LIST> 
<SET SYMBGL> 


<SET SYMBOL> 3:3= <BOOLEAN SYMBOL> 
<BOOLEAN SYMBOL> ss= <LETTER> 
1! <BOOLEAN SyMBOL> <LETTER> 
{ <800LEAN SYMBOL> <DIGIT> 
CRESET STATEMENT> 3 s= RESET <RESET SYMBOL LIST> 
CRESET SyMsOL LIST> ::= RESET SyYMBOL> 


1 <RESET SYMBOL LIST> 
<RESET SYMB8CL> 


<RESET SYMBOL> 23= <BOOLEAN SyY#8OL> 

<PAGE STATEMENT> ss= PAGE 

<LIBRARY STATEMENT> s:= LIBRARY <FILE NAME> 
<FILE NAME>s:= <4ULTI“FILE IDENTIFIER> 


1 <MULTICFILE IDENTIFIER? / 
“FILE ICENTIFIER> 

1 <PACK IDENTAFIER> / 
<4ULTICFILE LTDENTIFIER> £ 


‘ 
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1 <PACK IDENTIFIER? / 


<MULTISFILE IDENTIFIER? / 
<FILE IDENTIFIER> 


<PACK ICENTIFIER> s:= © <IDENTIFIER> 
<MULTI*FILE ICENTIFIER>s2= ‘<I DENTIFIER> 
<FILE IDENTIFIER>::= <TDENTIFTER> 
<IF A@LOCK> 2:5 <IF STATEMENT> 


<INCLUSION BLOCK> 
<END STATEMENT> 

{( <IF STATEMENT> 
<TRUE PART> 
<INCLUSION SLOCK> 
<END STATEMENT> 


<TF STATEMENT> c= IF <BOOQLEAN EXPRESSLON> 


<BOOLEAN EXPRESSTON> :2= <BOOLEAN FACTOR> 
1 <BOOLEAN EXPRESSION> OR 
<BOOLEAN FACTOR> 


<BOOLEAN FACTOR> es= <BOOLE4N SECONDARY> 
1 <SQOLEAN FACTOR> AND 
<BOOLEAN SECONDARY> 


<BOGLEAN SECONDARY> 3:= <SOOLEAN PRIMARY> 
§ NOT <BOOLEAN PRIMARY> 


<BOOLEAN PRIMARY> 32= <SET SYMBOL> 
1 <RESET SYMSOL> 


INCLUSION BLOCK> i:= “SDL SOURCE IMAGE ELOCK> 
{ <IF BLCCK> 


<SOL SQURCE 
[IMAGE BLOCK> 35 <EMPTY> 
' <1 OR MORE SOL SOURCE IMAGES> 


<END STATEMENT> 235 END 
<TRUE PART> 33 INCLUSION BLOCK> <ELSE STATEMENT> 
ELSE STATEMENT> 3 ELSE 


All records containing conditional compilaticn statements must 
have an ampersand €&) in column 1 (except the <SDL SOURCE IMAGE 
ELOCK>). In addition» a complete conditicnat incluston statement 
aust be cantained on one &mCAROQ. Columns 2772 are freefield» 
and columns 73°89 may contain sequence numbers. 
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Note that <8GQLEAN EXPRESSION>s may contain the logical operators 
(from lowest precedence to highest): OR» AND» and NOT. 


The <PAGE STATEMENT>? will cause a page eject if the source file 
is being listed. The <LIBRARY STATEMENT? will cause the images 
from the file specified by <FILE NAHE> ta be included in the 
source program. 


As an examples» consider the following SDL source statements 
illustrating nested conditional compilation statements and <SDOL 
SOURCE IMAGE BLOCK>s. 


CCL 1 FREETFIELO: COLS 2-72 SEQ: 73780 
& SET ABC 01904 
&@ RESET OE C2690 
DECLARE CA»B) FIXEDS ¥ 390 
& IF 4 AND E 0469 
A 3= PB; G590 
& ELSE 9609 
A s= X CAT ¥+#Z% % WHOLE SOURCE [HAGE IT5 INCLUDED C709 
& IF C . G80C 
B := As 0900 
& END ‘ 1909 
& ENU 1169 
& IF §& GR OD 1209 
BUMP 8B, 1300 
& ELSE 140% 
BUMP As 1509 
& END 1600 


The compilation of the following statements would result. 


DECLARE CA»B) FIXED; 6309 
A z= X CAT YeZs Z% WHOLE SOURCE IMAGE I[S INCLUDED 9750 
B 3s= 4; 9990 
SUMP 33 1300 


Note that every IF must be paired with either an ELSE or an END. 
Every ELSE must have an END associated with ite 
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This section contains coding suggestions and examples which 
result in decreased source code and/or object code. 


QECLARATIONS: 


1e As many non=structured declarations as possible (Cup to 
a maximum of 32) should be declared in one <declare 
STATEMENT>.» Exampte: 


OECLARE A FIXED» CdeC) BITC 24) 
generates more efficient code than: 


DECLARE A FIXED; 
DECLARE CB»C) BITC24)% 


2e A <CEFINE ACTUAL PARAMETER> (See DEFINE INVOCATION) may 
be a series of SOL statements. For example: 


DEFINE COMPARECTS»®S) AS# 
IF TOKEN _SYMBOL=TS 
THEN O00; 
33 
UNDO THIS_ONES 
END #3 
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may be invoked as: 


DO THIS_ONE FORE VER; 


COMPARE C"SINGLE™>» SINGLE SPACE := TRUE); 
COMPARE C"MERGE"™» IF LASTUSED + C 
THEN UNDO THIS_ONE> 
LASTUSED := 23 
OPEN SOURCE INPUT; 
., READ SOURCE CTAFEWORK) D> 
COMPARE CoaosrPoce)? 
END THIS_ONES 
PROCECURES: 
l. Procedures from highest effictency to lowest are: 
PARAMETERS LOCAL DATA 
NO NO 
NO YES 
Yes NO 
YES YES 
STATEMENTS: 
1e When the value returned by a typed procedure is to he 
ignored: 
IF PCX"¥) THEN; 
is more efficient than: 
TEMP 2= PC X-Y¥)3 
rar Use "%" at the beginning of a comment rather’ than 
"/eeeet /" as deliviters. The "Z" stops the scanning of 
that record. If the “/*eex0.%x/" form 1s used» scanning 
must continue to detect the ending termirator. Thus 


compile time is increased. 
3 The expression? 


SUBSTRC"012345678 9ABCDEF "> Nol) 


BURRCUGHS CORPORATION 
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i 


generates much less code than 
CASE. NOP CPO" 921 a 2 eee MET CE) 


The fact that a boolean expression evaluates to 


a one 


or zero can often be used to advantage. For examnpler 


the statement: 
X 3= A>Q; 
§ more efficient than 
X s= IF A>O THEN 1 ELSE G3 


and the results are the same. 


3UMP A s= Bs stores 8 into A and bumps 8» and BUMP 


s= BB; stores 8 into 4 and bcumos A. 


REVERSE STORE CIF <CONDITION> THEN A ELSE 2B» 


selectively stores C into A or 8. 


Consider the following: 


Cs) 


In a compiter» for example» assume that all catls on 


the error routine follow a THEN/ELSE cr are in a <CASE 
STATEMENT>. Example: 
1. iF <CONDITION> THEN ERRORCEOGS); 
22 CASE Np 
o? 
2? 
.7 
ERROKCE137)> 
2? 
END CASE; 
[t is sometimes desirable to put these calls into a 
separate segment» esreciatly when E095) and E137 
represent character strings Cte€eer intline ERROR 
MESSAGES). 
For exampte: 
DEFINE ERRORCN) AS #SEGMENT CERROR_CALLS); 
ERROR ROUTINE (CN) a> 
B3ecause of the temporary nature of segmenting 


subordinate executable statement sp only the calts witt 


be in separate segments. 
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Be When two or more elements of a <C4SE STATEMENT> or = an 


<IF STATEMENT> have identical code» more efficient code 
1S generated if the code is put into ae separate 
procedure (Cwith no parameters or data). In both casesp 
execution time will be identical, tut object code 
savings could be substantial. 


9» Use conditional compilation statements to remove 


debugging code» rather than physically removing the 
code. See Appendix VII. 
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The SDL compiler includes a facility whereby it is possible to 
save information from one compilation which wilt enable the 
compiler to recompile onty one (Cor more) Lexic Level Zero 
procedures in subsequent runse thus reducing computer time for 
the recompilations. 


A, SAVING THE MASTER COMPILER INFORMATION 


The master compile information is saved ty the cospiler in the 
following five files: 


Internal Name Default External Name 
NEWSQURCE "NEW" /"SCURCE” 
NEW_INFO_LFILE © SAE" LO ILNE © 

NEW SECONDARY_FILE "NEX"/" SEC" 
NEW_GLOCK_ADDRESS_FILE "NEW" /°B OF 
NEW_FPB_FILE "NEW" /"F PB" 


Note that the file NEWSOURCE is identical to» and created in the 
Same way ase the file created with the $NEW card. Alt five files 
wiil be created with the compiler $*aption (Ncte: Brackets here 
indicate optional specifications): 


SCREATE_MASTER CE<PACK_ID>/I<MULTIFILE_ID>} 


If specified» <MULTIFILE_I0> wilt be used instead of the default 
multifile id» "NEN™» for all the filese If atsa specified» 
<PACK_ID> wilt direct all the files to the named user disk pack 
or cartridge instead of system disk. <PACK_ID> and <MULTIFILE_ 
If> must be quoted character literals. 


Notes: 


1. The CREATE_NASTER option must be on the first card in 
the compile deck Cfile “CARDS™)>» and that card may 


contain no other dollar options Cexcept RECOMPILE--See 
the following section). 
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Ze The new source file must te completely sequenced» so 


BSEQ should be used to assure this if necessarye 
This includes all & CARDS» as they will be included in 
the new source file. 


36 $NEW option has no effect In conjunction with 
CREATE_MASTER. 


Be PARTIAL RECOMPILATION 


By supplying the information saved during a CREATE_MASTER 


compile» one may have only those Lexic Level Zero procedures 
recompiled which have actually been patched. The patch deck ts 


perfectly ordinary except that no patch cards may change Lexic 
level Zero coder declarations or orocedure heads-. 


Partial recompilation witl be invoked with the Stoption CNote: 
Brackets here indicate optional specifications): 


SRECOMPILeE CLSPACK_ ID>/I“MULTIFILE_ID] 


The compiler will then expect the following six files as input: 


Internal Name Default External Name 
SGU RCE WMASTER"™/*SQURCE" 
MASTER_INFU_FILE "MASTER */7INE & 
MASTER_SECONDARY_FILE W"MASTER"/"SEC" 
MASTER_S3LOCK_ADDRESS_FILE WMASTER"/"™GAF"™ 

MASTER _FPB_FILE "MASTER"/"FP8"* 
MASTER_MPT_FILE "MASTER" / "MPT" 


If specified in the RECOMPILE optton» <MULTIFILE_ID> will te used 
instead of the default id “*MASTER". If also specified» the files 
widt be expected to be found on user pack or cartridge <PACK_ID>. 
<PACH_ICD> and <MULTIFILE_ ID> wust be quoted character literals. 


Notes: 


l. The RECOMPILE oaption must be on the first card tn the 


compile deck Cfile "“CARDS") and that card may contain 
ro other doltar cptions Cexcept CREATE_MASTER» see 
previous section). 
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2s The patch deck may contain “CARDS and &5SET and RRESET 
cards followed by patch cardse If & CARDS are used» 
however» they wilt only apply to procedures being 
recompiled and may» therefore» cause unwanted effects. 


Ze Neither $SEG nor SMERGE may be used with S$RECOMPILE. 


Cw. SIMULTANEOUS RECOMPILE AND CREATE_MASTER 


New master information, may be saved from a recompilation run with 
very little overhead. Both RECOMPILE and CREATE_MASTER options 
(See above.) must be on the first card of the compile deck. ALL 
restrictions noted in 4A and 8 should be observed. 


De GENERAL CONS TOERATIONS 


le All input and output files must be cn diske (This does 
not apply to the SOURCE file for a straight 
CREATE _ MASTER which ts read in tne normal way as the 
result of a $MERGE carde It does apply to SOURCE when 
doing RECOMPILE.) 


2s File equation cards for recompilation files with ce 
ignored untess no <PACK_ID> or <MULTIFILE_ID> has been 
specified on the 
$~CARD. 


30 Ouring recompilation the onty source which can be 
Listed is that which is actually Ceing recompiled. 


4e $°-CARDsS for timings monitoring» and PROFILE may be 
added during recompilation. They witl onty affect 
those procedures being recompiled» however» even if 
they are at the beginning of the patch deck. 


5. 4 CREATE_MASTER compilation reporting syntax errors 
which are strictly local to lexic teveit zero orocedures 
will croduce usable master files. These may then te 
used to recompile the offending procedurese Since the 
CREATE_MASTER produced no object file» however» some of 
the $-Card information will be missing for the 
recompilation--specifically stack size cards. These 
must te included in the recompile deck. 


6 SXMAP is incompatibte with partial recompilation and 


may not be specified if CREATE_MASTER or RECOMPILE have 
been itnvoked. 


E. EXAMPLES 
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le CREATE MASTER compilation 


2COMPILE MyYPROG WITH SDL TO LIBRARY 
?FILE SOURCE NAME MYPROG/OLDSOURCE TAPE; 
PCATA CARDS 

$SCREATE_MASTER "MYPROG" 

FMERGE SEQ LIST 

{Patch Cards} 

?END 


2DUMP TO MYTAPE/RECOMP MYPROG/=> 
2s Partiat recompilation Cfrom user pack) 


P?LOAD TO MYPACK FROM MYTAPE/RECOHP MNYPROG/=;3 


2COMPILE MYNEWPROG WITH SOL TO LIBRARY 
2DATA CARDS 

SRECOMPILE *MYPACK"™/"MYPROG" 

$LIST 

CPatch Cards] 

2END 


Lo" Simultaneous operations 
PLOAD FROM MYTAPE/SRECOMP MYPROG/=> 


2COMPILE MYHEWPROG WITH SDL TO LIBRARY 
PDATA CARDS 

SRECOMPILE "MYPROG" CREATE_MNASTER “*MYPROG* 
{Patch Cards] 

2END 


2O0UMP TO MYNEWTAPE/RECOUP MYNEWPROG/=, 
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AFPENDIX VIJTI: SOL MONITORING FACILITY 


Procedure entry and exit can be dynamicatly monitored via 
features that are available through the SOL compiler. Use of the 
monitoring feature proceeds in two steps. First» at compitation 
time p the user specifies via control cards that various 
procedures are to he "candidates for monitoring" in subsequent 
executions of the program. Then at execution time the user 
specifies via a RUNTIME MONITOR STATEMENT that some sutset of 
the candidate procedures are to be monitored for this rune The 
RUN“ TIME MONITOR STATEMENT can be input through the SPOs or from 
some user file» at program BOJ or during the execution of the 
program via execution of built-in functions. 


QUTPUT EGRMATS 


Assume a procedure named PROC is being monitored and that it has 
two parameters X and Y- An invocatton of PROC would produce the 
following mcnitor information: 


weeweesk blanks ss 7 "eEkK PROC cececcec*">>dddddddd 


lala “k*tl olanksww7.,.} "Y= the value of ¥ sat the point of invo- 
cation as an SOL literal 
ol lai k+#i blanksw""-77°7X= the value of X at the foint of invos- 


cation as an SOL Literal 


Here k describes the nesting tevel of the call» ccccccce is the 
sequence nusber of the invocation point» and dddddddd is the 


sequence number of the procedure head of PROC. 
when PROC is exited» the fotlowing Line is emitted: 


a aaa k blank swctere"Ck] exit PROC at eeeeeeece 


If PROC is a functions the following Line will also de emitted: 


ewrwermnk tl] Dlankstw@w ww TPROC= the value of PROC srecified as an 
SOL Literal 


The cutput data may be directed to any file. This is done ty 
associating the file attribute MONITOR_OUTPUT_FILE with some file 
in the programe The following restricttons hetide 
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MONITOR QSUTPUT_ FILE RESTRICTIONS 


Le The feature is not dynamice CIt cannot be changed with 
a CHANGE statement). 


Ce The tength of a record in the output file should be 
more than 71 characterse 


Ss If several files are given the MONITOR_OUTPUT_FILE 


attribute» the last file so declared becomes’ the 
monitor output file. 


4 e If any procedures are declared to be candidates for 


monitor then a monitor output file should te declared. 
If it is note the compiler witl append a file to tre 


program for this purpose. 


5° The file must be sequential with fixed Length records. 
6. The user should never issue an explicit cpen on the 
file. 


{f the value of a parameter or a procedure is being written ana 
current output record is insufficient in Lengths the tliterat will 
be continued to the next record for as many records as 15 
necesSarye Indentation is not peformed oan subsequent Lines. 
Indentation of the first tine ceases within 60 scaces of the end 
of the monitor output record. Vatues of Length zero are noted 
acprogpriately regardless of type. If a character value contains 
unprintable data-e the value will be printed as three asterisks 
fotlowed by a hex representation of the data. Only the first 3a 
characters of any procedure name and the first 10 characters of 
any format name are usede 


The user specifies that procedures are candidates for monitoring 
with the dollar card options MONITOR and MONITOR_OFF. The 
qualifier NO is meaningful in front of both words. The 
discussion of MONITOR_OFF witl be deferred to a tater section. 
However» for the purposes cf qualtificatiar»s the two options are 
semantically equivalent. Specificallysr if MONITOR is ON when the 
procedure name first appears Ceither in its fcerward or its head)e 
then the procedure becomes a candidate for monttoringe Note that 
the MONITOR option relates to procedures and not to procedure 
invocationses There is no way to specify the concept’ that a 
procedure 4S a candidate for monitoring tut that scme particular 
invocation of that procedure is not to be monitorede Also note 
that it is the state of the option when the FORWARD Cif present) 
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is encountered that is important. 


The concept of a RUN“TIME MONITORING statement was previously 
introduced. This statement will be read into the program at B80J 
from any file that the user specifies. This is done by giving 
the attrinvute MONITOR_INPUT_FILE to some file declared in the 
programe The following restrictions hold: 


Restrictions: 
Le le2e30e5» and 6 under MONITOR_OUTPUT_FILE RESTRICTIONS. 


Ze If no file is declared with the attributes 
NMONITOR_INPUT_ FILE and procedures are declared to be 
cancidates for monitoring then the program issues 
accepts at the beginning of jab to obtain the necessary 
inforaation from the SPO. : 


3e If a file is declared to be the MONITCR_INPUT_FILE then 


the monitoring infcrmation must be the first record(s) 
of the file. 


The RUN*©TIME PMONITOR statement consists of a runvtime monitor 


expression that is terminated by a semicolon. Formal 
specification of the RUN=TIME MONITOR expression syntax is 
deferred to a tater section. The fotlcwing examples wilt 


Chopefully) itlustrate the satient features of the statement. 
Here please read “ail procedures" as “all precedures which are 
candidates for mnonitoring"™. 


EXAMPLE MEANING 
ie $4LL> Monitor all procedures 
2e SNONE ¢ Monitor no procedures 
5e XL; Monitor att gerecedures whose name is 


Xl. 


HURRGU 
COMPUT 
SANTA 


4e 


De 


6. 


T. 


3s 


De 


GHS CORFURATION 


ER SYSTEMS GROUP 
BARBARA PLANT 
&k&zk ek k 
« X1 X23 & 
* * 
& X1eX23 fe 
* * 
* X11 QR X23 ra 
& & 
* XL + X2> & 
kkzk« wxkKK 
«er wk 
« NOT X1> * 
*® & 
*& "Xs x 
xkk* XxXk«k 


UGQVOT9INAROLI99IIID: 


kik kkk 
* $05900099°91999999 «& 
* * 
* AND NOT SCAN; * 
& * 
* J09000000-91999999 «* 
k * 
& « = SCAN * 
« * 
kkk kkk 
kkk & kt 
# 9O59C909°C1L999999 « 
* * 
« & SCAN; t 
kik kke 
kik kkk 
* GL1426C0900"915790905 * 
* or * 
* €27 48 396799999999 & 
* or & 
* SCAN? * 
kak kkk 
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CALL four statements are equivalent). 


Monitor atl procedures named Xi or 
or X2. 


(Both statements are equivalent). 


Monitor all crocedures whose name 
not Xl. 


1s 


Monitor all procedures whose forwards 
ocr procedure heads occurred on or bes 


tween the two sequence numbers. 


Same as (6.2) above except that proce- 
dures name SCAN are not to be monic 
tored. . 


Monitor atl procedures named SCAN in 


the range descritede 


the two 
procedure 
of these 


Monitor alt procedures in 
ranges specified plus any 
nawed SCAN which is out 
rangese 
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MONITCRING? PROGRAMMATIC CONTROL 


om on ee ae 8 Se OE eon OE — 2 <a ee 


The SMONTTUR_CFF option and the three specials MONITOR_SET> 
MONI TCR_RESET > and MONITOR_CHANGE are added toa SOL to allow 
program control of monitoring. If the SMONITOR_OFF option was 
ever one the program wilt not require a RUN=*TIME MONITOR 
statement at f0J and wilt behave as if the RUNTIME SONITOR 
statement "S$NONE3" had been read. 


Each of the three specials is an unvalued procedure with one 
arguments a RUN“TIME MONTTOR statement expressed as an expression 
which generates a character strings @eGer MONITOR_SET 
C™XL X27" de 0 MONITOR_RESET causes monitoring to be discontinued 
for att procedures satisfying its argument. If a procedure is 
not currently being monitored but stilt satisfies MCNITOR_RESET'*s 
arguments» it witt continue not to be monitored. 


MONITCR_SET causes monitoring to be cosmenced on ail procedures 


satisfying its argument. [If a procedure is satisfied by 
MONI TCR_SET*s argument and is currently teing sronitoreds it 
cont inues to be monitored. If a procedure is currently being 
monitored and does not satisfy MONITOR_LSET"s argument» it 


continues to te monitored. 


After the execution of a MONITOR_CHANGE only those frocedures 
referenced by its argument will be monitored. 


There are no problems of symmetry on calls and returns, TeCor 
one can begin monitoring a procedure that has already been 
entered or discontinue the monitoring of some procedure that has 
currently ceen entered» The cently toss is that the sonitor output 
information is “thrown out of sync" in terms of the nesting level 
for a while. 


<STATEMENT> s2= <EXPRESSTON>; 1 
1S ALL3 2 
ISNONES 3 
<EXPRESSION> 2:22 <TERM> 4 
1<TERM> <OR> <EXPRESSLION> 5 


<TERN> s:= <FACTOR> 6 
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I<FACTOR> <AND> <TERM> | 7 
<FACTOR> 323= <PRIME> 8 
1<NOT> <PRIME> 9 
<PRINE> 2s2= (<EXPRESSTUN>) 19 
1<RANGE> 11 
i<LIST> . 12 
<RANGE> ss= <8& DIGIT SE@ #>-<8 DIGIT SEQ #> L3 
<LIST ::= <SOL_IDENTIFIER> 14 
I<SOL_LIDENTIFIER>» <LIST> 15 
P<SCL_IDENTIFIER> <LIST> 16 
<OR> 3:3= OR Z 17 
1+ 18 
€AND> 32 AND j 19 
{* 29 
<NOT> z:= I «NOT 21 
i= 22 
NOTES 


i The <8 DIGIT SEQ #>s referred to in tine 13 must 
be such that the first ts less than or equal to 
the second. 


Ze The <SDL_IDENTIFIER>s referred to in (14-16) are 
names of procedures in the programe Only the 
first 35 characters are used. 
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a — a —_ <= 2 —_ <-> os 


When monitoring a proaqrane the monitoring intrinsics reference a 
random access file associated with the compilation of the 
programs. The name of the code file and the name of its monitor 
file are given below: 


COOE FILE MONITOR FILE 
A SSA 
A/38 A/$33 


As3/C A/B/SSC 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


INQEX 


ACCEPT STATEMENT 9-12 
ACCESS_FILE_INFORMATION 19°37 
ADDRESS AND VALUE PARAMETERS 8-15 
ADDRESS GENERATING FUNCTIONS a8-8 
ADDRESS GENERATORS 8-13 

ACDRESS MODIFIER 8-12 

ACDRESS VARIABLES 8-5 

ADVISCRY 12-3 

ALL_AREAS_AT_OPEN 5-28, 1919 
AMPERSAND OPTION 1253 
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APPENCIX Ts RESERVED AND SPECIAL WORDS li-1 


APPENDIX If 
APPENCIX If 
APPEACIX fv 
APPENECIX Vs 


RUNNING THE COMPILER L4-1 
CONDITIONAL COMPILATION Ge ae 


> SOL CONTROL CARD OPTIONS l2-1 
I: PROGRAMMING OPTIMIZATION 13-1 


APPENDIX viz SUL PROGRAMMING TECHNIQUES 16-1 
APPENDIX VITs SOL PARTIAL RECOMPILATION FACILITY 


APPENCIX VIII: SOL MONITURING FACILITY L623 


AREA_ByY_CYLINCER S-28e 19°19 . 
ARITHMETIC OPERATORS (=9 

ARKAY 22 

ARRAY STRUCTURE 5=13 

ASSIGNMENT STATEMENT fom 

ASSIGNMENT STATEMENTS AND EXPRESSIONS fei 
ASSIGNGR 8-4 


BACKUS NAUR FORM 5 Raf 

BASE _ REGISTER §-17 

BASIC COMPUNENTS OF THE SDL LANGUAGE ord 
BINARY CONVERSION 8-18 

BINARY SEARCH 8-18 

8Il STRINGS 2735 

BUFFERS 5°24 19-22 

BUMP 8-2» LO-1L2 


CALLING ASILITY 3°5 

CASE EXPRESSION 38-2 

CASE STATEMENT 10-7 
CHANGE STATEMENT CFILE ATTRIBUTE STATEMENT) 
CHANGE_STACK_SIZES 19°37 
CHAR_TASLE = 2*5 

CHARACTER STRINGS 2-4 
CHARACTER_FILL 109-38 
CHECK GPTION 12-3 

CLEAR STATEMENT 10-12 
CLOSE STATEMENT 9-6 

CODE OPTIGN 12-3 
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COMMENTS 2-2 
COMMUNICATE 10738 
COMMUNICATE_WITH_GI $40 
COMPILE_CARD_INFO 10°38 
CONCATENATION 7-11 
CONDITIONAL COMPILATION 
CONDITIGNAL EXPRESSIUN 
CONSULE_SWITCHES © 8-19 
CONTROL OPTION 12-3 
CONT ROL_STACK_B8ITS 
CONTROL_STACK_TOP 
CONVERT 8-20 
CONVERTOOTS OPTION 
COROUTINE STATEMENT 
CSSIZE OPTION 12-3 


8-19 


8-1 


6-19 
B19 


12-3 
10-353 


DATA STRUCTURING 
DATA TYPES 5-1 
DATA_ADDRESS 8-22 
DATA_LENGTH 8-22 
OATA_TYPE 822 
DATE 98-22 
DC_INITIATE_I0O 
DESLANK 190-49 
DE3UG CPTION 12-3 
DECIMAL CONVERSION 
CECLARATION STATEMENT 
CECLARATIONS 5-1 
DECLARE STATEMENT 
DECREMENT 8-46 
DEFINE INVOCATION 
DEFINE STATEMENT 
DELINITED_TOKEN 
GESCRIPTORS 8-10 

DETAIL GPTION 12-3 
DEVICE 57225 Lo-17 
DISASLE_INTERRUPTS 19740 
DISK ALLOCATION 5-28 
DISK ORIVE ASSIGNMENT 
OISK FILE 5-26 10-22 
DISPATCH 8-24 
DISPLAY STATEMENT 
DISPLAY_SASE 8-25 
00 GROUPS 10-2 
DOUBLE OPTION 
DUMMY =S=13 
DUMP 10°49 
DUNP_FOR_ANALYSIS 
DYNAMIC DECLARATIONS 
CYNAMIC FILE CHANGE 
DYNA MIC_MEMORY_BASE 
DYNAMICSIZE OPTION 
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S71 
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5°38 
5736 
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ENO OF STRING 1011 
END_GF_PAGE_ACTION 5°29» 19°19 
ENTER_CORCUTINE 10733 

ERROR FILE OPTION 12-3 
ERROR_COMMUNICATE 10-41 

ESSIZE OPTION 12-3 

EULASSIGNMENT 5-228 

EVALUATION _STACK_TOP 8-25 
EXCEPTION MASK PART 5-31 
EXECUTABLE STATEMENT 3~1 
EXECUTABLE STATEMENTS 190-1 
EXECUTE 8-25» 10742 
EXECUTE“FUNCTION STATEMENT 19°36 
EXECUTE-PROCECURE STATEMENT 19-35 
EXIT_CORGUTINE 19-33 
EXPANC_DEFINES 12-3 

EXPRESSIONS 7-1 

EXTENOED ARITHMETIC FUNCTIONS 8-27 


rercu 10-42 

FETC H_AND_SAVE 10-42 

FETCH COMMUNICATE_ASG_PTR 8-19 
FILE ATTRIBUTE STATEMENT CCHANGE STATEMENT) LOw14 
FILE DECLARATIONS ar eN 

FILLER B= ic 
FIND_DUPLICATE_CHARACTERS L9-42 
FINI S=1 

FORMAL .CHECK 5741 

FORMAL _CHECK 5*10% 6» » » 675 
FORMAL_VALUE 674» 8=16 
FORMALCHECK OPTION 12-4 

FORWARD DECLARATION 374% 

FREE ZE 12-3 

FREEZE PROGRAM 19743 


GROW 19-43 


HALT LO 744 

HARDWARE MONITOR 1371 
HARDWARE_ MONITOR 1o744 
HASH_CODE 3-27 
HEX_SEQUENCE_NUMHER 2-5 


1/O CONTROL STATEMENTS 9-1 
IDENTIFIER 5-37 

ICENTIFIERS 2-1 

IF STATEMENT 10°5 

INDEXED FIELD REFERENCES 5-6 
INDEXING 8-5 
INITIALIZE_VECTOR 10-44 
INTERPRETER OPTION 1294 
INTERROGATE_INTERRJIPT_STATUS 8728 
INTRA*STRUCTUSE REMAP 3 S-11 
INTRINSIC HEAD 675 
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INTRINSIC OPTION 1274 


LABEL S21» 10-16 
LAST_LIU_STATUS 8-28 
LENGTH 8-28 
LEXICOGRAPHIC LEVEL 3-2 
LIMIT_REGISTER 8-28 
LIST OPTION 12-4 
LISTALL OPTION 12-4 
LOCATION 8-29 

LOCK S=25+ 10-19 
LOCKI 12-4 

LOGICAL QPERATORS 7-7 


M_MEM_SIZE 8-35 

MAKE _DESCRIPTGR 811 

MAKE _READ_ONLY» MAXE_READ_WRITE 10-32 

MERGE OPTION 124 

MESSAGE_COUNT  10=45 

MODE 5-24, 19-18 

HODLFY STATEMENTS CCLEAR> 3UMP» DECREMENT)- 10°12 
MONITCGHR  109°45> 1274 

MONITCR FILE 18-7 

MONITOR SPEC PART 5-31 

MONITCR_OUTPUT_FILE RESTRICTIONS 18-1» 1876 
MULTI PACK 5-285 16°19 . 


NAME _OF_OAY 8°29 
NAME _STACK_TOP 8=30 

NEST _PROCEDURE_TIMES. 12-4 
NESTING 3-2 

NESTING LEVEL 6-7 

NEW OPTION 124 

NEXT_ITEMs PREVIOUS_ITEM a=12 
NEXT_TOKEN 8-39 

NO OPTION 12-4 

NO_DUPLICATES OPTION 12-4 
NO_SOURCE_OPTION 12-4 
NON@STRUCTURE DECLARATIONS 5-8 
NSSIZE OPTION 1L2°5 

NULL 812 

NULL. STATEMENT  LO“13 
NUMBER_OF_STATIONS 5-30 
NUMBERS 273 


ON SEQUENCE 9716 

OPEN OPTION 2 al ae 6 

OPEN STATEMENT = 2 

OPERATOR PRECEDENCE TABLE T=4 
OPTIONAL FILE PART 5-31 

OTHER CONSTANTS 275 

OVERLAY L)°45 


PACK_I0 5-27» 10-16 
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PAGE CPTION t2°*5 

PAGED ARRAY DECLARATIONS 5715 

PARITY SPECIFICATION 10-18 
PARITY_ADDRESS 8-31 

P4SS END OPTION L2-5 

POLISH NOTATICN C2 

PPROF ILE 13-1 

PPSSIZE OPTION {2-5 

PREVICUS_ITEM S12 

PRIMARY ELEMENTS OF THE EXPRESSION 8-1 
PROCEDURE 3ODY 676 . 
PROCECURE ENDING 6-8 
PROCECURE HEAD 672 
PROCECURE NESTING 574 
PROCECURC STATEMENT 3 
PROCEDURES 6-1 
PRUCESSOR TIME see 
PROF ILE Loni 

PROF ILE» PPROFILE OPTION 12°5 
PROGKAM SEGMENTATION k=} 
PROGRAM SWITCHES 8-31 

PROGRAM TIMING 13-2 
PROGRAMMING OPTIMIZATION 13-1 
PRUGRAMMING TECHNIQUES 16-1 


READ STATEMENT 9-5 

READ CASSETTE 19-46 
READL FILE HEADER» WRITE_FILE_HEADER 10°39) 
READ_FP@8e WRITE_F PB 19-46 

READ _CVERLAY» WRITE_OQVERLAY 19-47 
RECOMPILATION FACILITY 1771 
RECOMPILE TIMES OPTION 12-5 
RECORD 574 

RECORC REFERENCE DECLARATIONS 5°19 
RECORG REFERENCE VARIABLES 5-19 
RECORD SIZE 5-25% 10-22 

RECORD STATEMENT 5-35 

REDUCE STATEMENT 19-9 

REEL NUMBER 5-26» 10722 

REFER ADDRESS 19°47 

REFER LENGTH 10°48 

REFER STATENENT 10-3 

REFER TYPE 19-42 

REFERENCE DECLARATIONS 5-18 
REINSTATE 10748 
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RELATIONAL GPERATORS 7-6 
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REMOTE KEY 5-29 

REPLACE OPERATORS ras 
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RETURN STATEMENT 6-6 
RETURN _AND_ENABLE_INTERRUPTS 676 
REVERSE_STORE 10-49 


S_MEM_ SIZE» M_MEN_SIZE a~ 35 
SAVE 5-255 » 13°50 

SAVE STATE | 10°50 

SCOPE 375 

SCOPE GF PROCEDURES 3-2 
SEARCH.DIRECTORY 19°28 

SEARCH DIRECTORY STATEMENT 10°28 
SEARCH _LINNED_LIST 8-32 
SEARCH SOL _ STACKS B-33 

SEAR CH_SERTAL_LIST 8-34 

SEEK STATEMENT Ysa ie 4 

SEGMENT» SEGMENT_ PAGE 4&1 

SEQ OPTION 12°5 

SEQUENCE NUMBER 25 

SERIAL ‘NUMBER PART £531 
SINGLE SPACE OPTION 12-5 

SIZE GPTION 12-5 

SKIP STATEMENT 9-15 

SORT 19°50 

SORT _MERGE LO°51 

SORT_ SEARCH 8°35 
SORT_STEP_DOWN 8-35 

SORT SWAP § 10°52 

SORT _UNSBLOCK 8-36 

SPACE STATEMENT 9~14 

SPO_ INPUT _PRESENT 87-35 

STGP STATEMENT 10-26 
STRUCTURE DECLARATIONS 5°11 
STRUCTURE OF 4N SDL PROGRAS a 
STRUCTURED RECORD STATEMENT 5=- 
STRUCTURES 5°*5 

SUBBIT AND SUBSTR BB» 8°37 
SUPPRESS OPTION 12°5 

SWAP =. 58738 

SWITCH FILE DECLARATIONS 5°34 
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THAW PROGRAM = 19°52. 
THRE AD_.VECTOR 10-52 
TIME: 8-39 

TIMER: 8°39 

TIMING OPTION 12-5 
TODAYS_DATE 2°5- 
TRACE: 10°53 

TRANSLATE = 16°54 

TYPED PROCEDURES 8-15 


UN4RY OPERATORS 7-5 
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USE INPUT BLOCKING 5-29 13°19 


se? 


IX-7 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP 81800/81700 SOL CBNF Version) (F) 
SANTA BARBARA PLANT PeSe 2212 5405 


USE STATEMENT 5743 
USEDOTS OPTION 12-5 


VALUE GENERATING FUNCTIONS 6-16 
VALUE VARIABLES 8-14 
VALUE_DESCRIPTOR a-40 

VARIAGLE DATA FIELDS 6-4 
VARIABLE RECORD 5-24» 10-19 
VOID CPTION 12-5 

VSSIZE OPTION 12-6 


WAIT e-4a 

WORK FILE 5°39 
WORKING_SEF_3YTES OPTION 12-6 
WRITE STATEMENT 97-8 
WRITE_FILE_HEAOER 10-30 
WRITE_OVERLAY LO-47 
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TIMER. 

<TIMER DESIGNATCROsS 2 = TIMER 
4 value of tyoe 83I1T(24) is returnede . The value is the 
current setting of the TIME register. 
DATA LENGTH 

<DATA_LENGTH CESIGNATCR>s2= DATA_LENGTH (<EXPRESSTION>) 
Returns the length in bits of <EXPRESSION>» regardless of 


the data type. 


DATA TYPE 
<CATA_TYPE DESICNATORO2 s= DATA_TYPE C<EXPRESSION>) 


Returns the type bits cf <EXPRESSICN>. 
; 


REFER ADDRESS 


<REFER_ADDRESS ss REFER_LADDRESS C<REF VARD>> 
DESIGNATOR>?2= : cEXRESSION>) 


The value of <EXPRESSION> is stored ir the address of <REF 
YAR>. : : 
REFER LENGTH 


<REFER_LENGTH_ REFER LENGTH C<REFER VAR>> 
DESIGNATOR>::= <EXPRESSICA>) 


The value of <EXPRESSION> is stored in the length of <REF 
VAR>. 


REFER TYPE 


eREFER_TYPE 


DESIGNATOR> 22s REFER _ TYPE C<REF VAR>» <EXPRESSIUN> 


The value of <EXPRESSIGN> is stored in the type fart of 
<REF VAR>,. 
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STRUCTURED RECORD STATEMENT 


<STRUCTURED RECORC STATEMENT> s2= 
RECORD OL <RECORD ICENTIFIER> <TYPE> 
<STRUCTURE ELEMENTS> 


<RECORD IDENTIFTIER> 23= <ICENTIFIER> 


<STRUCTURE ELEMENTS> 3:5 
e<LEVEL NUMBER> <STRUCTURE ELEMENT> © 


1 + *<STRUCTURE ELEMENTS> 
<STRUCTURE ELEMENT> i3= 


<FIELD NAME> <TYPE> 
i “FIELD NAME> <ARFAY BOUNLD <TYPE> 
1 FILLER <TyYPE> 


{ <FIELD AAME> REMAPS <REMAFS OBJECT> <TYP 
Structured Records have teen implemented to allcw easier 


conver sion of the current PL/I~style structures to 
records. 


Structured Records have the same capabilities as RECORDS. 


Fields declared as an array say. not have nested structure.. 


BINARY SEARCH 


<BINARY_SEARCH FUNCTION>ss= BINARY _ SEARCH 


<START 


RECORD>:? s= 
<CUMPARE_FIELC>:: 
<CUMP ARE _ VALUED? : 
<NUMBER_OF_RECORD 


C<START_RECORD>» <COMPARE_FIELD>> 
<COMPARE_VALUE>» <NUMBER_OF_RECORDS>) 


<EXPRESSTON> 
= <TEAPLATE> 
= <EXPRESSTIUN>D 
So 23= <ADDRESS GENERATCR? 


BINARY_SEARCH searches an ordered list of items that start 
at <START_RECORD> for <NUMBER_OF_RECORDS> for a mastche 


The occurrence number of the entry that matches will be 
returned» or if there is no match» the occurrerce number 
of the first entry that is greater will te returned. 


NOTE: The comparison is atways left justified ard uses 
the length of <CQOMPARE VALUE>. 


ied 
“ 


